Предмет: Информатика,
автор: Боняя
Написать программу в Free Pascal:
Дано целое число неизвестной размерности. Найти сумму цифр его составляющих.
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Окружающий мир,
автор: Alinaibragimova16
Предмет: Геометрия,
автор: griefshowyt2
Предмет: Физика,
автор: pilel
Предмет: Геометрия,
автор: Ололош123
Предмет: Обществознание,
автор: Kristina5600