Напишите программу, которая считает сумму цифр введенного числа (паскаль)

Question

Информатика

Евмений

28 мая, 23:19

Напишите программу, которая считает сумму цифр введенного числа (паскаль)

+5

Ответы (1)

Знаете ответ на вопрос?

Наталья · Answer 1

Var n, sum:integer;

begin

writeln ('Vvedite chuslo') ;

readln (n) ;

repeat

sum:=sum + (n mod 10) ;

n:=n div 10;

until n=0;

writeln ('summa=', sum) ;

end.