-
-
-
«
»
.. ,
..
4 -
-
2012
Стр.1
1.
.
.
N (
:
N 500 ). N
<>.<> <-> <> <-> <>,
– , 30 ,
; – ,
20, – ; -, ,
-, – . ,
.
:
-. 15 02 11 256
.- 25 03 16 350
,
,
«», ,
«»
. ,
.
2.
,
.
N. N
:
<>.<> <>,
– , 30 ,
; –
(, , , ); – ,
«–». ,
.
3
Стр.3
7.
31 ,
,
.
,
dd – ( ); t1, t2, t3 –
. t1 –
, t2 – , t3 – .
,
.
:
5 9 -2
5 – , 9 –
; -2 – .
8.
, , , .
,
,
.
9.
, , , .
,
, ,
.
10.
. N –
( 500N
N :
).
6
Стр.6
<>.<> < > <>,
– , –
(, 30 ); –
, –
( 0 100).
:
-- 58 78
- - 1 52
.
,
,
,
. ,
, .
11.
,
. (
20 ), ,
.
.
,
.
12.
,
. (
20 ), ,
.
.
,
, .
7
Стр.7
1.
const m=31; { -}
var v:array[1..m] of integer; {- -
«--» - -
-}
s:integer; {-- - -
«--» --}
k:integer; { --,
- -- «--»}
max:integer; {--- -}
i,b1,b2,x,y,N,p,d:integer;
c:char;
{ }
a:string[30]; {-- }
g:string[20]; {}
begin
writeln(' ---
');
readln(N);
if N>0 then
begin
for i:=1 to m do {
--- }
v[i]:=0;
s:=0; k:=0;
for i:=1 to N do
begin
a:='';
repeat
read(c);
a:=a+c
until c='.'; {- -- }
g:='';
repeat
read(c);
8
Стр.8