Прошу Помочь
«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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
