Вводится натуральное число. Необходимо подсчитать сумму и количество цифр. Результат...

Question

Вводится натуральное число. Необходимо подсчитать сумму и количество цифр. Результат вывести на экран через запятую. В программе должна быть процедура ввода и процедура для подсчёта суммы и количества цифр. Обязательное использование цикла с постусловием! Паскаль Срочно помогите пожалуйста А

Comments

Только одно число вводится?

---

Да

Answer 1

var a,b,c,d,e: integer;

begin

write('Введите a=');

read(a);

b:=10;

c:= a+b;

writeln('Сумма равна ',c);

e:=0;

while c>0 do

 begin

  d:=c mod 10;

  c:=c div 10;

  e:=e+1;

 end;

 writeln('В числе ', e, ' цифр(-a/-ы)');

end.