используя цикл с предусловием выполните следующее задание: дано натуральное число. Определите сумму его цифр
Ответы
Ответ дал:
0
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.
Похожие вопросы
1 год назад
1 год назад
1 год назад
2 года назад