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