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