Составить программу нахождения суммы чисел четырехзначного числа

Question

Информатика

Плакилла

22 августа, 10:47

Составить программу нахождения суммы чисел четырехзначного числа

+1

Ответы (1)

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

Павлуша · Answer 1

Program exs;

var a, i, sum : integer;

begin

sum: = 0;

readln (a) ; {Считывание числа}

for i: = 1 to 4 do begin

sum:=sum + (a mod 10) ; {Находим остаток от деления на 10}

a:=a div 10; {Выкидываем найденную цифру из числа}

end;

writeln (sum) ;

end.