Определите, что будет напечатано в результате работы следующего фрагмента программы:var k, s: integer;begins:=1;k:=0;while k < 13 do begins:=s+2*k;k:=k+4;end;write(s+k);end.

Ну проследуйте в уме логике, просто же.

s = 0;

k = 1;

в цикле будет пока s<66

на первом шаге

k = 1 + 3 = 4

s = 0 + k = 4

след шаг (2)

k = 4 + 3 = 7

s = 4 + 7 = 11

след шаг (3)

k = 7 + 3 = 10

s = 11 + 10 = 21

след шаг (4)

k = 10 + 3 = 13

s = 21 + 13 = 34

след шаг (5)

k = 13 + 3 = 16

s = 34 + 16 = 50

очевидно, что на след шаге s будет равно 69 (значение k = 19)

после него проверка условия в цикле while не сработает, он будет пропущен и выведет программа

число 19