Тема: Pascal, цикл з передумовою; Задано ціле число. Знайти суму цифр у записі числа.
Тема: Pascal, цикл з передумовою;
Задано ціле число. Знайти суму цифр у записі числа.
Гость
Ответ(ы) на вопрос:
Гость //Pascal ABC.NET v3.1 сборка 1172
Var
n,c,s:integer;
begin
read(n);
while n<>0 do
begin
c:=n mod 10;
s:=s+c;
n:=n div 10;
end;
writeln(s);
end.
Пример ввода:
123
Пример вывода:
6
Не нашли ответ?
Похожие вопросы