1var s, n: integer; begin s : = 25; n : = 0; while 400 < s*s do begin s : = s - 1; n : = n + 3 end; writeln(n); end.

NamaruC3    3   19.03.2019 11:17    0