, -, .
A:=B;
;
;
.
- , .
.
1. ?
)X:=Y; )Min=K+1; )Summa+1:=W; )S:=S; )A:=****; )Rrr=125+1*A )Str:=120*Y; )T:=5>Y;
2. , , 3 2, ?
) X:=X+2*Y; Y:=Y/2;
) Y:=-Y; X:=X+Y; Y:=Y+1;
) X:=1; X:=X+Y;
) X:=Y; Y:=X;
-
. , Input () Output (), .
3 :
Write(B1,B2,,Bn); -
B1,B2,,Bn : Integer, Char, Real, String, Boolean.
.
Integer - .
Real , 7 .
:
Write(123.456); 1.23456002
Write(-0.000123); - 1.230000-04
. :
Write(A:N:M);
N , , A
, , .
:
Write(123.456:10:4);
. |
Write(123.456:6:2);
. |
Char String .
Boolean True False.
. - :K
:
Write(X1=,X1:8:3, :10,X2=,X2:8:3);
Writeln(B1,B2,,Bn);
, .
Writeln;
.
1.
:
Program Lin1;
Begin
|
|
Writeln( );
End.
:
1. :
) Write(X,Y); )Writeln(X:Y:Z); )Writeln ) Write(Xx,Xx,Yy,Yy); )Writeln(1+2,3+4,Y/X); ) Writeln(1+2,3+4,Y/X); )Writeln(X:=Y,Z);
2. ( ).
:
Read(A1,A2,,An); -
A1, A2,,An .
, .
, , :
- ;
- ;
- , , .
-
Readln(B1,B2,,Bn);
, .
Readln;
.
2.
:
Program Lin2;
Var A:String;
Begin
Writeln( , ?);
Readln(A);
Writeln( , ,A);
End.
3.
A,B,C. : A B C
:
A=10, B=15, C=20
P:
A=20, B=10, C=15
:
Program Lin3;
Var A,B,C,D:Integer;
Begin
Writeln( A, B, C);
Read(A,B,C);
D:=C;
C:=B;
B:=A;
A:=D;
Writeln(A=,A,B=,B,C=,C);
End.
:
1.
:
) Write(X,Y); ) Readln(X+Y,Y); )Read(X,Y); )Read(Xx,Xx,Yy,Yy)?
2. A,B,C,D. :
A B C D ( ).
3.
:
Read(X); X:=X Mod 2; X:=Sqrt(X+1); Write(X,X*2);
:
) 2; )1.2; )6; )5.4?
4. X1,Y1 X2,Y2.
5. 2- (N ). ( ). .
6. :
) ; ) ; ).
7. .
8. . :
) 8 ; ) 10 ; ) 7 ;
9. . 24-33+42-5+6.
.