Дано число 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.
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.
Новые вопросы
Русский язык,
2 года назад
Русский язык,
2 года назад
Биология,
7 лет назад
Физика,
7 лет назад
Математика,
9 лет назад
Математика,
9 лет назад