программирование PascalABC
Ввести целое число и найти его сумму цифр
По типу: while условие do
Переменные: I,n
Ввести целое число и найти его сумму цифр
По типу: while условие do
Переменные: I,n
More Questions From This User See All
Answers & Comments
var n, i : integer;
begin
i := 0;
readln(n);
n := abs(n);
while n > 0 do
begin
i := i + n mod 10;
n := n div 10;
end;
writeln(i);
end.