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 (у);