Question

1) Напишите, что будет выведено на экран в ходе выполнения фрагмента программы: 1) Var k: integer; Begin FOR k := 1 TO 7 do Writeln (к); 2) Var x,y: integer; Begin у := 5; FOR х := 1 TO 10 do y := у + 4; Writeln (y); 3) Определить значение переменной у после выполнения следующих фрагментов программы: Var x,у: integer; Begin у := 1; FOR х:= 1 TO 6 do y := y *2; y:=у+x; Writeln (у);

Answer 1

1) k:=7
2)выполнить 10 раз
y:=45

Answer 2

1) Фрагмент программы: ```pascal Var k: integer; Begin FOR k := 1 TO 7 do Writeln(k); End. ``` Результат выполнения данного фрагмента программы будет вывод чисел от 1 до 7 на экран.

2) Фрагмент программы: ```pascal Var x, y: integer; Begin y := 5; FOR x := 1 TO 10 do y := y + 4; Writeln(y); End. ``` Результат выполнения данного фрагмента программы будет вывод числа 45 на экран. В данном фрагменте переменная `y` инициализируется значением 5, а затем в цикле `FOR` переменная `y` увеличивается на 4 на каждой итерации. После завершения цикла, значение `y` будет равно 45.

3) Фрагмент программы: ```pascal Var x, y: integer; Begin y := 1; FOR x := 1 TO 6 do y := y * 2; y := y + x; Writeln(y); End. ``` Результат выполнения данного фрагмента программы будет вывод числа 64 на экран. В данном фрагменте переменная `y` инициализируется значением 1, а затем в цикле `FOR` переменная `y` умножается на 2 на каждой итерации. После завершения цикла, значение `y` будет равно 32. Затем переменная `y` увеличивается на значение переменной `x`, которое равно 6. Таким образом, итоговое значение `y` будет равно 32 + 6 = 38.