Определить значение переменной у после выполнения следующих фрагментов программы:
у := 1.5; for i := 1 to 4 do у := у - i;
у := 2; for k := 4 downto 1 do у : = у * k;
у := 5; for n := 1 downto 4 do у := у + n;
у := 1; for i := 1 to 3 do begin у := у +1 ; у := у + i; end;
у := 0; for i := 4 to 6 do у := у + i ; у := у / 10;
у := 1; for i := 0 downto -2 do у := у - i; у := у * 10;
y := 0; for n := 4 downto 2 do begin y := y + n; y := y * 10; end;

Определить значение переменной у после выполнения следующих фрагментов программы:
Var у : real; i : integer; у := 1 ; i := 5; while i> 2 do i:= i - 1; y:=y + 1 * i;
Var у : real; i : integer; у := 1 ; i := 2 ; repeat i:= 2 * i; y:=y + i until i > 5;
Var у : real; i : integer; у := 1 ; i := 1; while i< 5 do i:= i+1; y:=y+1 * i;
Var у : real; i : integer; у := 1 ; i := 1; while i > 1 do begin y:=y + 1 / i; i:= I – 1; end;
Var у : real; i : integer; у := 1 ; i := 5; repeat i:= 2 * i; y:=y + i until i > 5;
Var у : real; i : integer; у := 1 ; i := 1; repeat y:= y + 1 / i; i:= I - 1 until i <= 1;

ksunavolik    1   29.04.2020 22:06    3