1.    Определить значение переменной у после выполнения следующих фрагментов программы:a)     у := 1; for i := 1 to 5 do begin у := у +1 ; у := у + i; end;b)     y := 0; for k : = 2 to 6 do у := у + k;c)      у := 1; for k := 3...

1.    Определить значение переменной у после выполнения следующих фрагментов программы: a)      у := 1; for i := 1 to 5 do begin у := у +1 ; у := у + i; end; b)      y := 0; for k : = 2 to 6 do у := у + k; c)       у := 1; for k := 3 to 5 do у : = у * k; d)      y := 1; for i : = 1 to 4 do begin y := y * 10 ; y := y + i; end; 2.    Определить значение переменной у после выполнения следующих фрагментов программы: a)      Var у : real; i : integer; у := 1 ; i := 5; while i> 2 do i:= i - 1; y:=y + 1 * i; b)      Var у : real; i : integer; у := 1 ; i := 2 ; repeat i:= 2 * i; y:=y + i until i > 5; c)       Var у : real; i : integer; у := 1 ; i := 1; while i< 5 do i:= i+1; y:=y+1 * i; d)      Var у : real; i : integer; у := 1 ; i := 5; repeat i:= 2 * i; y:=y + i until i > 5;