Написать программу в Free Pascal:

Дано целое число неизвестной размерности. Найти сумму цифр его составляющих.

Question

Информатика

Витоша

2 сентября, 16:37

Написать программу в Free Pascal:

Дано целое число неизвестной размерности. Найти сумму цифр его составляющих.

+5

Ответы (1)

Знаете ответ?

Агап · Answer 1

Var n, sum:integer;

begin

sum:=0;

write ('N = ') ;

readln (n) ;

while n 0 do

begin

sum:=sum+n mod 10;

n:=n div 10;

end;

writeln ('Summa: ', sum) ;

end.

Написать программу в Free Pascal:Дано целое число неизвестной размерности. Найти сумму цифр его составляющих.

Написать программу в Free Pascal:

Дано целое число неизвестной размерности. Найти сумму цифр его составляющих.