3) Напишите, что будет выведено на экран в ходе выполнения фрагмента программы:
a) FOR k := 1 TO 4 do Write(k);
b) y := 0; FOR x := 1 TO 9 do y := y + 1; Writeln (y);
4) Какое значение будет принимать переменная Y после выполнения фрагментов программы?
А) Var Y, X: integer;
Begin
Y: = 1;
X: = 15;
Repeat
Y: = Y*X;
X: = X – 3;
Until X<5;
Writeln (‘Y=’,Y);
End.

В) Var Y, X: integer;
Begin
Y: = 1;
X: = 10;
Repeat
Y: = X*X;
X: = X – 2;
Until X<=0;
Writeln (‘Y=’,Y);
End.

3. a) Будет выведено "1234".
b) Будет выведено "9". 4. А) Переменная Y будет принимать значение 450. Начинается с 1, затем увеличивается умножением на X (который уменьшается на 3 после каждой итерации) до 15, 12, 9, 6. Когда X становится меньше 5, цикл прекращается.
B) Переменная Y будет принимать значение 4. Это последнее ненулевое значение X в квадрате перед тем, как X досчитает до 0 или меньше.