Question

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;

Answer 1

1 
a) 21
b)20
c)60
d)11234
2  Решу позже,Окей? 
a) 3
b)3
c)
d)3