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