От за это. Понимаю что это не математика, а информатика, но мне кажется раздел ИКТ никто не смотрит.
Определить значение переменной у после выполнения следующих фрагментов программы:
1) у := 1.5; for i := 1 to 4 do у := у - i;
2) у := 2; for k := 4 downto 1 do у : = у * k;
3) у := 5; for n := 1 downto 4 do у := у + n;
4) у := 1; for i := 1 to 3 do begin у := у +1 ; у := у + i; end;
5) у := 0; for i := 4 to 6 do у := у + i ; у := у / 10;
6) у := 1; for i := 0 downto -2 do у := у - i; у := у * 10;
7) y := 0; for n := 4 downto 2 do begin y := y + n; y := y * 10; end;
Определить значение переменной у после выполнения следующих фрагментов программы:
1)Var у : real; i : integer; у := 1 ; i := 5; while i> 2 do i:= i - 1; y:=y + 1 * i;
2)Var у : real; i : integer; у := 1 ; i := 2 ; repeat i:= 2 * i; y:=y + i until i > 5;
3)Var у : real; i : integer; у := 1 ; i := 1; while i< 5 do i:= i+1; y:=y+1 * i;
4)Var у : real; i : integer; у := 1 ; i := 1; while i > 1 do begin y:=y + 1 / i; i:= I – 1; end;
5)Var у : real; i : integer; у := 1 ; i := 5; repeat i:= 2 * i; y:=y + i until i > 5;
6)Var у : real; i : integer; у := 1 ; i := 1; repeat y:= y + 1 / i; i:= I - 1 until i <= 1;
Теперь вторые.
Определить значение переменной у после выполнения следующих фрагментов программы:
1) y := 0; for k : = 2 to 6 do у := у + k;
2) у : = 1; for k : = 6 downto 3 do у : = у + k ;
3) у := 1; for k := 6 to 3 do у : = у + k;
4) у := 1; for k := 1 to 3 do у : = у + k ; у := у * 10;
5) y := 0; for i : = 1 to 4 do begin y := y * 10 ; y := y + i; end;
6) у ;= 0; for х := 6 downto 2 do у : = у +х; у := у * 2;
7) y := 0; for n := 6 downto 3 do begin y := y + 1; y :=y * 2; end;
Определить значение переменной s после выполнения следующих фрагментов программы:
1) Var s : real; i : integer; s := 0 ; i := 5; while i>2 do i:=I -1; s := s + i * i;
2) Var s : real; i : integer; s := 0 ; i := 2 ; repeat i:=2*i; s:=s+i until i > 5 ;
3) Var s : real; i : integer; s := 0 ; i := 0; while i<5 do i:= i+1; s := s + 1 * i;
4) Var s : real; i : integer; s := 0 ; i := 1; while i >1 do begin s := s + 1 / i ; i:= i-1; end;
5) Var s : real; i : integer; s := 0 ; i := 5; repeat i:=2*i; s := s + i until i > 5;
6) Var s : real; i : integer; s := 0 ; i := 1; repeat s : = s + 1 / i ; i : = I -1 until i <= 1;
a) -8.5
b) 48
c) 5
d) 10
e) 1.5
f) 40
g)4320