Дано натуральное число. Верно ли, что сумма цифр данного числа больше 10? - Turbo Pascal
Формулировка задачи:
Пожалуйста помогите!
Дано натуральное число. Верно ли,что сумма цифр данного числа больше 10.
Решить с помощью одномерного массива.
Спасибо заранее!
Решение задачи: «Дано натуральное число. Верно ли, что сумма цифр данного числа больше 10?»
textual
Листинг программы
var a:array[0..9] of integer; n,i:integer; b:longint; begin write('введите число:');readln(b); while b>0 do begin i:=b mod 10;inc(a[i]);b:=b div 10;end; for i:=1 to 9 do n:=n+a[i]*i; if n>10 then writeln('верно') else writeln('неверно'); end.