<Shift>.
<Ctrl>+K+C <Ctrl>+<Ins> - , <Shift>+<Ins> - .
<Ctrl>+K+V <Shift>+<Del> - , , <Shift>+<Ins> - .
<Ctrl>+<Del> <Ctrl>+K+Y.
: gf, d4 , lq , joke , 1, 2 . . =
Var
gf,d4:integer;
lq:real;
joke:byte;
c1,c2:char;
Begin
writeln( );
read(gf,d4);
read(lq);
read(joke);
read(c1,c2);
writeln(gf=,gf);
writeln(d4=,d4);
writeln(lq=,lq:7:4);
writeln(c1=,c1);
writeln(c2=,c2)
end.
:
1. ;
2. ;
3. "< > = <>", , X=3.5
4. .
) ,
) ,
) ,
) ,
)
)
i1, j1 - , g1 - , b - , v1, v2 - | |
r1 - , g1, h - , t - , rq, vc, f - | |
er, t6 - , rz - , b, ra - , w - | |
bn, kj, yu - , q1 - , b, t - , my, my1 - | |
mq, hg - , g1, rl - , b, i67 - , d1, er2 - | |
mo, w2 - , w4, ur - , x, q12 - , wx, aw - | |
xz, yu - , q2, o9 - , h, ws7 - , q1, qq2 - | |
bt, g5 - , s1, re - , b, w2q - , dd, sss - | |
jy, ww - , re, t5 - , v, gfd - , we, s1d - | |
q1, i8 - , e3, re - , x, e34 - , wq, r4t - | |
q1, rr - , kk, yl - , f, fdf - , ep, pp2 - | |
nh, nn - , w1, yy - , j, w24 - , tt, ttt - | |
vr, yi - , lk, as - , q, sas - , ry, v5d - | |
w2, u5 - , aa, hy - , x, q12 - , t5, rfv - | |
n7, gg - , g1, w2 - , x, q12 - , s3, qqq |
|
|
.
: , , ; , .
-
Program _;
Var
_1: ;
_2: ;
.
_n: ;
Begin
Read( );
;
writeln( )
End.
.
program familiya;
Var
x,k:integer;
y:real;
Begin
write(x=);read(x);
write(k=);read(k);
y:=sqrt(x+k)/abs(x-1);
writeln(y=,y:6:3)
end.
. -. . , . 5 . , .
, , , , , - . . .
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
1. ?
2. ? ?
3. , : ; ; ; ?
4. , ?
5. ?
6. ?
7. ? ?
: ; , .
Pascal | |
If then , Else , ; | |
Case of A1: _1; A2,A3: _2; A4..A5: _3; ........... An: _n; Else _n+1 End; |
, 1 ,
Begin
End;
If then
Begin
,
End
Else
Begin
,
End;
-
1. X, Y, Z
Program pr1;
Var
X,y,z,max:real;
Begin
Write ( x,y,z: );
Readln(x,y,z);
If (x>=y) and (x>=z) then max:=x;
|
|
If (y>=x) and (y>=z) then max:=y;
If (z>=x) and (z>=y) then max:=z;
Writeln( =, max:6:3)
End.
2. . f(a),
0 x £0,
F(x)= x2x 0< x £1,
x2sin px2
Program pr2;
Var
x,f:real;
Begin
Write ( : );
Readln(x);
If x<=0
Then f:=0
Else
if x <=1 then f:=sqr(x)x
else f:=sqr(x)sin(pi*x*x);
Writeln( F(x) x=, x, ,F)
End.
3. , - . , , , 12- 1996
Program pr3;
Var
year:integer;
Begin
Write ( : );
Readln(year);
Case year mod 12 of
0:writeln( );
1:writeln( );
2:writeln( );
3:writeln( );
4:writeln( );
5:writeln( );
6:writeln( );
7:writeln( );
8:writeln( );
9:writeln( );
10:writeln( );
11:writeln( );
End;
End.