Написать программу, которая находит сумму всех цифр введенного с клавиатуры четырехзначного числа

Question

Панкратий

29 января, 09:53

+2

Ответы (1)

Знаете ответ на вопрос?

Каринка · Answer 1

Var

a, sum:integer;

begin

Read (a) ;

while (a > 0) do begin

sum + = a mod 10;

a : = a div 10;

end;

Writeln (sum) ;

end.