Ввести целое число и найти сумму его цифр - вопрос №1547439 от mishakukla 04.12.2020 07:42

Question

Информатика: Ввести целое число и найти сумму его цифр

mishakukla · Answer

program raf105;

var abc,a,sum: integer;

begin

write('Введите число: ');

readln(abc);

repeat

a:= abc mod 10;

sum:= sum+a;

abc:= abc div 10;

until a=0;

writeln('Сумма цифр: ',sum);

end.

PascalABC 3.4.2