Question

Определить значение переменной y после выполнения следующих фрагментов программы:
1. Var y:real;k:integer;
Y:=1.5; for k:= to do y:=y-k;
2. Var y:real; k:integer;
Y:=2;for k:=4 downto 1 do y:=y*k;
3. Var y: real; k: integer;
Y:=0; for k:=1 to 3 do begin y:=y+1; y:=y+k end;
4. Var y: real; k: integer;
Y:=0; for k:=4 to 6 do y:=y+k; y:=y/10;
5. Var y: real;k:integer;
Y:=1; k:=5;
While k>2 do k:=k-1; y:=y+k*k;
6. Var y:real;k:integer;
Y:=1; k:=2;
Repeat k:=2*k; y:=y+k until k>5;
7. Var y:real; k:integer;
Y:=1; k:=1;
While k<5 do k:=k+1; y:=y+1*k

Answer 1

2)48
3)9
4)1.5
5)5
6)13
7)6