Прошу Помочь «A»: Ввести натуральное число и найти сумму его цифр. Пример: Введите натуральное число: 12345 Сумма цифр 15.
Прошу Помочь
«A»: Ввести натуральное число и найти сумму его цифр.
Пример:
Введите натуральное число:
12345
Сумма цифр 15.
Гость
Ответ(ы) на вопрос:
ГостьProgram Y;
uses crt;
var
a, Sum:integer;
begin
writeln('Введите число ');
readln(a);
Sum := 0;
while a > 0 do begin
Sum := Sum + a mod 10;
a := a div 10;
end;
writeln('Сумма цифр равна ', Sum);
End.
Не нашли ответ?
Похожие вопросы