Question

Ребяят, нужно найти сумму цифр четырёхзначного числа и записать в паскале

Answer 1

Ответ:

var

a, sum, i: integer;

begin

readln(a);

for i := 1 to 4 do

begin

sum := sum + a mod 10;

a := a div 10;

end;

writeln(sum);

end.

Объяснение: