Question

используя цикл с предусловием выполните следующее задание: дано натуральное число. Определите сумму его цифр

Answer 1

var a,sum: integer;

begin

readln(a);

sum:=0;

while(a>0) do begin

sum:=sum+(a mod 10);

a:=a div 10;

end;

write('s=',sum);

end.