: , . .
program bazar;
var sk: integer;
begin
writeln(i i i ? );
readln(sk);
case sk of
1..10: writeln( , i.);
11..50: writeln( !);
51..100: writeln( , i?)
else writeln(' i !');
end; { case }
readln
end.
, . , , word. char.
, , . .
.
, . , : , ? : ? , , . , , . , . , , . , , , .
59.59. ( 100). ( 4).
: :
program step1;
var n,m,res: longint;
begin
write(i i o ( i 100): );
readln(n);
write( i i (1-4): );
readln(m);
if m = 1 then res:= n
else if m = 2 then res:= n*n
else if m =3 then res:= n*n*n
else if m = 4 then res:= n*n*n*n;
writeln(res);
readln;
end.
.
program step2;
var n,m,res: longint;
begin
write(i i ( i 100): );
readln(n);
write( i i (1-4): );
readln(m);
case m of
1: res:= n;
2: res:= n*n;
|
|
3: res:= n*n*n;
4: res:= n*n*n*n;
end {case};
writeln(res);
readln;
end.
60.60. : ) ; ) ; ) .
61.61. . .
62.62. (X,Y). , .
63.63. (X1,Y1) (X2,Y2) . , .
64.64. X, Y, Z. X, Y, Z.
65.65. (X 1, Y 1),(X 2, Y 2),(X 3, Y 3). ( ), .
66.66. R A, B. , .
67.67. N(N < 100), . ϳ : "", "" "". : 1 , 23 , 97 .
68.68. A(X 1, Y 1),B(X 2,Y 2),C(X 3, Y 3). ABC.
69.69. , B , X, Y, Z. , . ) , . ) .
70.70. , , .
71.71. , . (X 1, Y 1),(X 2, Y 2) , (X 3, Y 3),(X 4, Y 4) . , , , .
72.72. S, A, B, C , , (X 1, Y 1), (X 2, Y 2), (X 3, Y 3), (X 4, Y 4). SABC , , 璺 .
, 䳿, . . : , , .. , , . , , ..
, , , . Pascal :1
n ;
n ;
n .
, , ᒺ , . , , . , .
|
|
, , . .
, .