1.определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s: =0; k: =0; while s < 100 do begin s: =s+k; k: =k+4; end; write(k); end. 2.определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s: =0; k: =1; while s < 66 do begin k: =k+3; s: =s+k; end; write(k); end. 3.запишите число, которое будет выведено в результате работы программы: var s, n: integer; begin s : = 25; n : = 5; while 500 < s*s do begin s : = s - 1; n : = n + 2 end; writeln(n) end.
2: 19
3: 11
Вот, вроде так:3