Question

срочно решите срочно

Answer 1

а)
i:=0;
s:=0;
while i<5 do
begin
i:=i+1;
s:=s+1;
end;

      ---           i = 0   s = 0
0 < 5 (да)     i = 1   s = 1
1 < 5 (да)     i = 2   s = 2
2 < 5 (да)     i = 3   s = 3
3 < 5 (да)     i = 4   s = 4
4 < 5 (да)     i = 5   s = 5
5 < 5 (нет)    i = 5   s = 5

б)
i:=0;
s:=0;
while i<5 do
i:=i+1;
s:=s+1;

      ---          i = 0   s = 0
0 < 5 (да)    i = 1   s = 0
1 < 5 (да)    i = 2   s = 0
2 < 5 (да)    i = 3   s = 0
3 < 5 (да)    i = 4   s = 0
4 < 5 (да)    i = 5   s = 0
5 < 5 (нет)   i = 5   s = 1

в)
i:=2;
s:=0;
while i>1 do
begin
s:=s+1/i;
i:=i-1;
end;

       ---         i = 2    s = 0
2 > 1 (да)     i = 1     s = 0.5
1 > 1 (нет)    i = 1     s = 0.5