Самостоятельная работа по теме " Цикл с параметром"

Самостоятельная работа по теме " Цикл с параметром" Вариант №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;