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;