Дано натуральное число. Верно ли, что сумма цифр данного числа больше 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.

Оцени полезность:

14   голосов , оценка 3.714 из 5
Похожие ответы