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