Определите, что будет напечатано в результате работы следующего фрагмента программы:var...

Question

Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin

s:=0;

k:=1;

while s < 66 do begin

k:=k+3;

s:=s+k;

end;

write(k);

end.

Answer 1

Значение переменных k и s изменяются до тех пор, пока s < 66
Будет выведено значение переменной k. k = 19
Трассировка:
s       k
0      1
4      4
11      7
21    10
34   13
50   16
69   19       ← s > 66. Выводим k.