Помогите пожалуйста,СРОЧНО!11!
Написать программу в паскале,которая запрашивает число и выводит на экран сумму его цифр,использовать цикл while.
Написать программу в паскале,которая запрашивает число и выводит на экран сумму его цифр,использовать цикл while.
Answers & Comments
Verified answer
var
a, s: integer;
begin
writeln('введите число ');
readln(a);
while a > 0 do begin
s += a mod 10;
a := a div 10;
end;
writeln('Сумма цифр равна ', s);
end.