Вариант №1

Определить значение переменной s после выполнения следующих фрагментов программы:

1. Var s; real; i : integer;

. . .

s := 0; for i := 1 to 4 do

begin s := s*10 ; s := s + I end;

Определить значение переменной y после выполнения следующих фрагментов программы:

2. Var y : real; x : integer;

. . .

y := 0; for x := 6 downto 2 do y := y +x; y := y /5;

Определить значение переменной s после выполнения следующих фрагментов программы:

3. Var s : real; n : integer;

. . .

s := 0; for n := 6 downto 3 do

begin s := s + 1; s := s *2 end;

Вариант №2

Определить значение переменной Y после выполнения следующих фрагментов программы:

1.    Var y ; real; i : integer;

. . .

y := 0;  for I :=4 to 6 do y := y + I ; y := y / 10;

Определить значение переменной Y после выполнения следующих фрагментов программы:

2.  Var y : real; I : integer;

. . .

y := 1; for I := 0 downto -2 do y := y – I; y := y * 10;

Определить значение переменной s после выполнения следующих фрагментов программы:

3.   Var s : real; n : integer;

. . .

s := 0; for n := 4 downo 2 do

begin s := s + n; s := s * 10 end;