Var i, a, s: integer; begin s: =0 for i: = 1 to 5 do begin readln(a); if (a mod 6= 0) and (a mod 10=4) then s: = s+ a; end; writeln(s) end. на выходе 14 24 144 22 12 что на выходе

NShmak    3   07.10.2019 18:30    0