10.
: .
: - . . . .
: , , , , , , 4.
.
14.
: , , -, , .
. .
.
- , , . . . . : , . , .
:
type < >= record
< 11>[,< 12>,...]: < 1>;
< 21 >[,< 22>,...]: < 2>;
End;
, , ta:
type ta = record
p1: real;
p2: char;
p3: byte
End;
var A: arrya [1..1O] of ta;
.
var Ta: record
p1: real;
p2: char;
p3: byte
End;
. :
- ;
- ;
- ;
- .
125 . 99999.
program SRBALL;
type zap = record
shg: string [5];
nzk: integer;
kd: 1..100;
oc:2..5
End;
var mas: array [1..100] of ZAP;
k,n,i: byte;
sum: real;
Begin
i:=0;
Repeat
i:=i+1;
readln (mas [i]. shg, mas [i]. nzk, mas [i]. kd, mas [i]. oc)
until mas [i]. shg ='99999';
n:=I; sum:=0; k:=0;
for i:=1 to N do
if mas [i]. shg = 125 then
begin
sum:=sum+ mas [i]. oc;
inc(k);
end;
if k<>0 then sum:=sum/k;
writeln (' =', sum);
end.
, . .
. . with.
|
|
with < record > do
< >;
.
:
Begin
i:=0;
with mas [i] do
Begin
Repeat
i:=i+1;
readln (mas [i]. shg, mas [i]. nzk, mas [i]. kd, mas [i]. oc)
until mas [i]. shg ='99999';
n:=I; sum:=0; k:=0;
for i:=1 to N do
if mas [i]. shg =K101 then
begin
sum:=sum+ mas [i]. oc;
inc(k);
end;
End;
if k<>0 then sum:=sum/k;
writeln (' =', sum);
end.
- , -.
:
type >= record 1>:< 1>; 2>:< 2>;
case < >:< > of
< 1>:(< 11 >:< 11 >
[;< - 12 >:< 12 >;< 13 >:< 13 >;...]);
< 2>: (< 21 >:< 21 >
[;< - 22>:< 22>;< 23>:< 23>;...]);
< >:(< 1>:< kl>
[;< - 2>:< 2>;< >:< >;...]);
< m>:() end;
, 1, 2..., . , . - , , .
. , . , , :
- : ;
- : , , ;
- .
:
:
type tz =record
tn: byte;
fio: string;
case n:char of
P': (in: byte; kaf: string; st: byte);
'S': (ng:byte; sp:integer);
A: ()
End;
var z: tz;
.
1, 21, 36 | 11, 31, 36 | 1, 32, 37 | |||
2, 22, 37 | 12, 32, 37 | 2, 33, 38 | |||
3, 23, 38 | 13, 33, 35 | 3, 34, 39 | |||
4, 24, 39 | 14, 34, 38 | 4, 35, 40 | |||
5, 25, 40 | 15, 35, 39 | 5, 26, 41 | |||
6, 26, 41 | 16, 21, 40 | 6, 27, 42 | |||
7, 27, 42 | 17, 22, 41 | 7, 28, 43 | |||
8, 28, 43 | 18, 23, 45 | 8, 29, 44 | |||
9, 29, 44 | 19, 24, 35 | 9, 30, 45 | |||
10, 30, 45 | 20, 25, 36 | 10, 21, 34 |
|
|
1. ) STUDENT, :
- NAME- ;
- ;
- ( ).
) , :
- , STUDENT; ;
- , , 4,0;
- , .
2. ) STUDENT, :
- NAME- ;
- ;
- ( ).
) , :
- , STUDENT; ;
- , 4 5;
- , .
3. ) STUDENT, :
- ;
- ;
- ( ).
) , :
- , STUDENT; ;
- , 2;
- , .
4. ) STUDENT, :
- ;
- ;
- .
) , :
- , AEROFLOT; ;
- , , , ;
- , .
5. ) AEROFLOT, :
- ;
- ;
- .
) , :
- , AEROFLOT; ;
- , , ;
- , .
6. ) WORKER, :
;
;
.
) , :
, WORKER; ;
, , ;
, .
7. ) TRAIN, :
;
;
.
) , :
, TRAIN; ;
, .
8. ) TRAIN, :
;
;
.
|
|
) , :
, TRAIN; ;
, , ;
, .
9. ) TRAIN, :
;
;
.
) , :
, TRAIN; ;
, ;
, .
10. ) MARSH, :
;
;
.
) , :
, MARSH, ;
, ;
, .
11. ) MARSH, :
;
;
.
) , :
, MARSH, ;
, , ;
, .
12. ) NOTE, :
, ;
;
( ).
) , :
, NOTE; ;
, ;
, .
13. ) NOTE, :
, ;
;
( ).
) , :
, NOTE; ;
, , ;
, .
14. ) NOTE, :
, ;
;
( ).
) , :
, NOTE; ;
, ;
, .
15. ) ZNAK, :
, ;
;
( ).
) , :
, ZNAK; ;
|
|
, ;
, .
16. ) ZNAK, :
, ;
;
( ).
) , :
, ZNAK; ;
, , ;
, .
17. ) ZNAK, :
, ;
;
( ).
) , :
, ZNAK; ;
, , ;
, .
18. ) PRICE, :
;
, ;
.
) , :
, PRICE; ;
, ;
, .
19. ) PRICE, :
;
, ;
.
) , :
, PRICE; ;
, , ;
, .
20. ) ORDER, :
;
;
.
) , :
, ORDER; ;
, , ;
,
21. , .
- ;
- ;
- .
:
- ;
- , , , , ;
- , , , , ;
, , .
22. , .
:
- ;
- ;
- ;
; - .
:
- ;
- , ;
- ;
- , .
23. , .
:
- ;
- ;
- ;
- .
:
- ;
- ;
- ;
- ;
- .
24. , .
|
|
:
- ;
- ;
- ;
- .
:
- ;
- ;
- ;
- .
25. , .
:
- ;
- ;
- ;
- ;
- .
:
- ;
- , , , ;
- , .
- .
26. , .
:
- ;
- ;
- ;
- , .
:
- ;
- , << >>;
- , << >>;
- , , , .
27. , .
, . , . . , , . .
, . . .
28. , . , , , , , , .
, . , . . , .
29. :
- ;
- ;
- ;
- .
, :
- ;
- ;
- : 10% , ;
- .
30. .
:
- ;
- ;
- (, , ).
, , .
, :
- ;
- : ) 40 , , ; ) 30 , , ; ) 25 , , .
- .
31. , .
:
- ;
- ;
- ;
- ;
- .
:
- ;
- , ;
- ;
- , .
32. , , .
, :
- ;
- ;
- ;
- .
33. , , .
, :
- ;
- ;
- ;
- .
34. . :
- ;
- ;
- .
.
, :
- ;
- ;
- ;
- , .
35. .
:
- ;
- ;
- .
.
, :
- ;
- ;
- ;
- , .
.
36. , 20 . : , , , . , . - . , .
37. : (, , , ), (, , ), (, , , ) . , ; . , 1995 , .
38. : (, , , ), (, , ), (, , , ) . , ; . , 1995 , .
39. : (, , ), (, , ), (, , , ) . , ; . , , 1995 .
40. : (, , ), (, , ), (, , , ) . , ; . , ( ) , 1995 1996 .
41. : (6 ), (, , ), (, ), (3 ), (7 ), ( ), (, ) ( ). , .
42. : (6 ), (, , ), (, ), (3 ), (7 ), ( ), (, ) ( ). , 235678 8 1996 .
43. : (6 ), (, , ), (, ), (3 ), (7 ), ( ), (, ) ( u1079 ). , , 15 12 1996 .
44. ( ), ( ), ( ), (, , ), ( ) ( ). . , , .
45. ( ), ( ), ( ), (, , ), ( ) ( ). . , , , 1977 .
.
1. ?
2. ?
3. ?
4. ?
5. ?
6. ?
7. ?
8. ?
9. .