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

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

Question

Информатика

Измарагд

31 июля, 04:05

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

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

+1

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

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