Var k, s: integer; begin s: =0; k: =0; while s < 100 do begin s: =s+k; k: =k+4; end; write(k); end.ответ: var n, s: integer; begin n : = 1; s : = 0; while n < = 100 do begin s : = s + 30; n : = n * 2 end; write(s)end.ответ: var s, n: integer; begin s : = 47; n : = 1; while s > 0 do begin s : = s - 9; n : = n + 4 end; writeln(n)end.ответ:

Disengaliev    1   22.05.2019 14:17    3