Захар6 лет назад
Листинг программы:
program N_o;
var k,S: integer;
Begin
S := 7;
FOR k := 11 to 14 do S := S * 2;
Writeln ('S=', S)
End.
Переменной S перед входом в цикл будет присвоено значение 7.
Цикл выполнится 4 раза для значений k равных 11, 12, 13, 14.
На каждом шаге значение S будет удвоено:
S = 7 * 2 = 14;
S = 14 * 2 =28;
S = 28 * 2 = 56;
S = 56 * 2 = 112.
Ответ. Будет выведено сообщение: S=112.