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

Question

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

Айхан1111111111 · Answer

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.Объяснение:...