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

Задание:

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

var k, s: integer;
begin
 s:=1;
 k:=0;
 while k < 13 do begin
 s:=s+2*k;
 k:=k+4;
 end;
 write(s+k);
end.
 

Решение:

Условие k < 13 проверяется сразу после k := k + 4, следовательно, действие s := s + 2 * k для k = 16 выполняться не будет.

s + k = 49 + 16 = 65

Ответ: 65