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

Question

Информатика

Аникуша

2 мая, 15:11

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

+3

Ответы (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.