238607

a:=ord('0'); for i:=1 to N do begin

repeat read(c)

until c=' '; { " } for j:=1 to 5 do

read(c); { } readln(tel); { " } p:=(ord(tel[10])-a)*10+

ord(tel[11])-a; kc[p]:=kc[p]+1 {

/? }

end; max:=0; min:=MaxInt;

for i:=1 to 99 do if kc[i]>0 then

begin

if kc[i]>max then max:=kc[i] if kc[i]<min then min:=kc[i] end;

writeln(' ',min);

writeln(' ',max)

end else

writeln(' N % ! ');

readln end.

11

! 3. const m=20;

var f:array[1..m] of string[50]; {" " sms- }

sb:array[1..m] of integer; {! }

i,j,b1,b2,p,N:integer; f1:string[50];

begin readln(N); if N>0 then

begin

for i:=1 to m do

readln(f[i]); { " " } { $ sb}

for i:=1 to m do sb[i]:=0;

for i:=1 to N do { ! $! } begin

readln(p,b1,b2); {p – " ,

b1 – % $ $, b2 – % $ } if (p>=0) and (p<=20) and

(b1>=0) and (b1<=10) and (b2>=0) and (b2<=10) then sb[p]:=b1+b2+sb[p]

end;

{ ! sb f} for i:=1 to m-1 do

for j:=i+1 to m do if sb[i]<sb[j] then

begin p:=sb[i]; sb[i]:=sb[j]; sb[j]:=p; f1:=f[i];

12

f[i]:=f[j];

f[j]:=f1 end;

writeln('!$ $ ! ');

writeln(f[1],sb[1],'% '); writeln(f[2],sb[2],'% '); writeln(f[3],sb[3],'% '); i:=4;

while (i<=m) and (f[i]=f[3]) do begin

writeln(f[i],sb[i],'% '); i:=i+1

end end else

writeln(' $! % ! ');

readln end.

! 4. const m=20;

var a,b,x,i,j,k,min,z:integer; c:array[0..9] of integer;

begin randomize;

writeln(' a b'); readln(a,b);

if b<a then begin x:=a; a:=b; b:=x

13

end; for i:=0 to 9 do

c[i]:=0; { % ! " }

repeat

x:=random(b-a+1)+a; { ! }

write(x,' '); z:=x;

while z>a do begin

c[z mod 10]:=c[z mod 10]+1; {

! " } z:=z div 10; {! /? " }

end until x=a;

writeln;

for j:=0 to 9 do begin

min:=c[0]; k:=0; for i:=1 to 9 do if c[i]<min then

begin min:=c[i]; k:=i

end;

c[k]:=MaxInt end;

readln end.

! 5.

var c92, c95, c98:integer; { %$ /? }

min,i,k,m,N:integer;

c:char; { } marka:integer; { & %$}

14

begin readln(N);

if (N>0) and (N<=100) then begin

c92:=201;

c95:=201;

c98:=201;

for i:=1 to N do begin

repeat read(c)

until c=' ';{! ! ? $ %$ $! } repeat

read(c)

until c=' '; {! ! ? $ } readln(m,k); { %$ } if (m=92) and (k<c92) then c92:=k; if (m=95) and (k<c95) then c95:=k; if (m=98) and (k<c98) then c98:=k end;

if c92>c95 then begin min:=c92; marka:=92 end

else begin

min:=c95;

marka:=95 end;

if c92<min then begin

min:=c98;

marka:=98 end;

15

writeln(' & %$ ', marka,' ',min,' %.')

end else

writeln(' %$ $! ');

readln end.

! 6. const n=31;

var d:array [1..n] of real;

s,s10:real; {s – ! ; s10 – ! !/ }

t1,t2,t3:integer; { , ,! $ }

min:real; { s10} k:integer; { % $

s10} p:integer; {

} i,x:integer;

s1:real; { ! $ } ot:real; { ! }

begin s:=0; s10:=0;

for i:=1 to N do begin readln(x,t1,t2,t3); s1:=(t1+t2+t3)/3; d[x]:=d[x]+s1;

if (x>=1) and (x<=10) then s10:=s10+s1;

16

s:=s+s1 end; s:=s/n; s10:=s10/10;

writeln(' ! / =',s); min:=abs(s10-d[1]);

k:=1; p:=1;

for i:=2 to n do begin ot:=abs(s10-d[i]); if ot<min then

begin min:=ot; k:=i; p:=1 end

else

if ot=min then p:=p+1

end;

writeln(' % $ , ! ! ',k,' / ');

writeln(' / =',p); readln

end.

# $!% $&%

1. !" . . - != #* 3*"++%* !"-%E : 7)&;. # ;%& /. . !", . . "#$%&!". – * -&6 : 0("'&$1 -# $%3*"4%)&-%5 /&-'* * -&6 3 3 7("* '!&-- 3 7-%!&* %'&'", 2010. – 266 . – ( )&;-% * -&6 3 3 7("* '!&-- 3 7-%!&* %'&'").

2.(%-=5 3 7("* '!&--=5 L 0"+&- 2010. -4 *+"'% ".-%!&* "$1-=& +"'&*%"$= ($E # (3 ' ! % 7)"D%> E / # ( *&(.

. . &D%-&*" ; . – . : -'&$$& '-/&-'*, 2010. – 136 .

3.-4 *+"'% " % . (3 ' ! " B-2012 / # (. *&(.. . = &- , . . !%). – ' ! -/ . : &3% -, 2011. – 368 .

17

18