Определите, что будет напечатано в результате работы следующего фрагмента программы:
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.

s:=1;k:=0s:=s+2*k;k:=k+4;Цикл будет выполнятся до того момента пока k не будет больше 13изначальноk:=0 k1=4k2=8k3=12k4=16 здесь цикл прерывается Теперь решим s:=s+2*k;s1=1s2=1s3=9s4=25s5=49 здесь цикл k закончилсяwrite(s+k);прибавляем 49+16=65Ответ:65