3 :
7.1. ()
Repeat
M1;
M2;
:
Mk;
Until N;
-
:
:
-
+
Repeat ;
Until ;
M1, M2,, Mk , .
N , ( )
:
1. M1, M2,, Mk;
2. N;
3. N True, , 1
, N;
1.
1 10.
:
Program Ci1;
Var K:Integer;
P:Real;
Begin
K:=0;P:=1;
Repeat
K:=K+1;
P:=P*K;
Until K=10;
Writeln(P= ,P:10:5);
End.
:
1. 1 N. :) ; ) ; ) .
2. .
3. : S=1+3+5++R R-.
4. : P=2+4+6++R R-.
5. y=x2 =1,3,5,,15.
6. =(2+15) =2,4,6,,20.
7.2.
While N do M;
-
+
While ;
Do ;
N , ( );
M . , ( ). ;
:
1. N;
2. N True, M ( ), ;
3. 1.
, N;
2.
1 N (N ). : S=
:
Program Ci2;
Var K,N:Integer;
S:Real;
Begin
Writeln( );
Readln(N);
K:=0;S:=0;
While K<N do
Begin
K:=K+2;
S:=S+1/K;
End;
Writeln(S= ,S);
End.
:
1. 1 N. : =
2. 1 N (N ). : S=
3. : =(1*3*5**N)/(1+3+5++N) (N ).
4. 1 N. : S= , (<1).
5. K,K+1,K+2,,K+N; (K<N).
6. : S=N+(N+1)+(N+2)+(N+3)++(N+R); (N<R).
7. : P=N*(N+1)*(N+2)*(N+3)**(N+R); (N<R).
|
|
8. : P=1+(1*2)+(1*2*3)+(1*2*3**R).
9. : P=1*(1+2)*(1+2+3)*(1+2+3++R).
10. M=N2-N N={2,4,6,,T} (T-).
11. X=Y2 *(Y 2 -Y)/Y Y={N,N*1,N*2,,N*M} (N<M).
2 :
For K:=N1 to N2 do M; ( )
For K:=N1 downto N2 do M; ( )
-
+
For ;
To ;
Downto ;
K (Integer, Char, Boolean), ;
N1, N2 , , K;
M ;
, ( ):
:
1. N1, N2;
2. K:=N1;
3. :
- K<=N2 (to)
- K>=N2 (downto)
4. , . M;
5. K :
- K:=succ(K) (to);
- K:=pred(K) (downto);
6. 3;
M .
3.
.
:
Program Ci3;
Var S:Char;
Begin
For S:=a to z do
Writeln( - ,S, ,Ord(S));
End.
4.
:
Program Ci4;
Var R:Integer;
Begin
For R:=9 downto 1 do Write(R, :4);
End.
5
10 0 100.
:
Program Ci4;
Const X=100;
Var Y,R:Integer;
Begin
Randomize; { }
For R:=1 to 10 do
Begin
Y:=Random(X);
Writeln(R,=,Y);
End;
End.