Срочно! введено число n, найдите сумму цифр числа
например,пишешь 361, и он должен сложить 3+6+1
решить с циклом while do
например,пишешь 361, и он должен сложить 3+6+1
решить с циклом while do
More Questions From This User See All
Answers & Comments
program raf105;
var
n,sum: integer;
begin
write('Введите число: ');
readln(n);
abs(n);
repeat
sum:= sum + n mod 10;
n:= n div 10
until n = 0;
writeln('Сумма цифр: ',sum);
end.
PascalABC