Информатика, вопрос задал aurustamova19 , 7 лет назад

Дано число n. Найти сумму цифр числа

Ответы на вопрос

Ответил Burnside
0
Программа на Object Pascal:

uses crt;
var n,s: integer;
begin
write('n='); readln(n);
while n>=1 do
begin
inc(s,n mod 10);
n:=n div 10;
end;
write(s);
readln;
end.
Новые вопросы