Ребяят, нужно найти сумму цифр четырёхзначного - вопрос №10737712 от Polino4444444ka 22.04.2021 12:19

Question

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

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