Операторы цикла(практикум)

Выполнить следующие упражнения:

### 1.Определить значение S;
(a)
Var s:real; i:integer;
Begin
S:=0; i:=1;
Repeat
S:=s+1/i;
I:=i-1;
Until i<1;
Writeln(s);
End.
(b)
S:=0;i:=1;
Repeat
I:=i-1;
S:=s+1/i;
Until i<=1;
Writeln(s);
End.
2.Определите, будет ли выполняться программа и каков будет результат?
Var s:real;i:integer;
Begin
S:=0;i:=1;
For i:=2 downto do s:=s+1/I;
Writeln(s);
End.
3. Какие из приведенных ниже программ содержит ошибку, приводящую к зацикливанию:
А) i:=0; for m:=10 to 0 do i:=i+1; writeln(i);
Б) i:=0; repeat i:=i+1 until i=0; writeln(i);
В) i:=0; while (i=0) or (i<10) do i:=i+1; writeln(i);
Г) i:=0; repeat i:=i+1 until i<0; writeln(i);
Д) i:=0; while (i=0) or (i>0) do i:=i+1; writeln(i);