1) Какое значение будет принимать переменная Y после выполнения фрагментов программы?
a) Var Y, X: integer;
Begin
Y: = 1;
X: = 12;
Repeat
Y: = Y*X;
X: = X – 2;
Until X<7;
Writeln (‘Y=’,Y);
End.
б) Var Y, X: integer;
Begin
Y: = 1;
X: = 16;
Repeat
Y: = X*X;
X: = X – 4;
Until X<=0;
Writeln (‘Y=’,Y);
End.
2) Определить значение переменной у после выполнения фрагмента следующей программы:
Var y:real;
i:integer;
begin
y:= 1;
i:= 2;
repeat
i:=3*i;
y:=y+i
until i > 7;
Writeln ('y=',y);
End.