Tykmn
4 год назад
Написать программу, которая находит сумму всех цифр введенного с клавиатуры четырехзначного числа
ОТВЕТЫ
Veronika
Oct 24, 2020
var
a,sum:integer;
begin
Read(a);
while (a > 0) do begin
sum += a mod 10;
a := a div 10;
end;
Writeln(sum);
end.
a,sum:integer;
begin
Read(a);
while (a > 0) do begin
sum += a mod 10;
a := a div 10;
end;
Writeln(sum);
end.
927
Смежные вопросы: