Задача1. Пори року (10 балів)

Рішення:

var N: byte;
begin
 assign(input,'input.txt');
 reset(input);
 read(N);
 close(input);
 assign(output,'output.txt');
 rewrite(output);
 case N of
 12,1,2: write('Winter');
 3..5: write('Spring');
 6..8: write('Summer');
 9..11: write('Autumn')
 else write('Error')
 end;
 close(output)
end.

Задача 2. Перепис (15 балів)

Рішення:

var N,V,S,i,max,nmax: byte;
begin
 assign(input,'input.txt');
 reset(input);
 readln(N);
 max:=0;
 for i:=1 to N do
 begin
 readln(V,S);
 if (V>max)and(S=1) then begin
 max:=V;
 nmax:=i
 end
 end;
 close(input);
 assign(output,'output.txt');
 rewrite(output);
 if max=0 then write(-1)
 else write(nmax);
 close(output)
end.

Задача 3. Годинник (20 балів)

Рішення:

var gp,hp,gk,hk: byte;
 i,xp,xk,T,N,p: integer;
begin
 assign(input,'input.txt');
 reset(input);
 readln(gp,hp);
 read(gk,hk);
 close(input);
 assign(output,'output.txt');
 rewrite(output);
 if gk720 then T:=i-720
 else T:=i;
 if T mod 60 = 0
 then begin
 N:=T div 60;
 if N>12 then dec(N,12);
 inc(p,N)
 end
 else if T mod 30 = 0
 then inc(p)
 end;
 write(p);
 close(output)
end.

Задача 4. Шаховий кінь (25 балів)

Вася вирішив навчитися грати в шахи. Він знайшов книгу з записами партій і уважно їх вивчає. Можливо, колись Вася стане великим шахістом, але поки що він навчається в початковій школі, і йому нелегко дається шахова нотація. Найскладнішим для Васі виявились ходи шахового коня. Він просить написати програму, яка зможе повідомити Васі, на які клітинки можна походити конем із заданої клітинки.

Рішення:

const c='abcdefgh';
var x,y: byte;
 S,R: char;
 p: integer;
begin
 assign(input,'input.txt');
 reset(input);
 read(S,R);
 close(input);
 assign(output,'output.txt');
 rewrite(output);
 val(R,x,p);
 y:=pos(S,c);
 if (y-2>0)and(x-1>0) then writeln(c[y-2],x-1);
 if (y-2>0)and(x+1<9) then writeln(c[y-2],x+1);
 if (y-1>0)and(x-2>0) then writeln(c[y-1],x-2);
 if (y-1>0)and(x+2<9) then writeln(c[y-1],x+2);
 if (y+1<9)and(x-2>0) then writeln(c[y+1],x-2);
 if (y+1<9)and(x+2<9) then writeln(c[y+1],x+2);
 if (y+2<9)and(x-1>0) then writeln(c[y+2],x-1);
 if (y+2<9)and(x+1<9) then writeln(c[y+2],x+1);
 close(output)
end.

Задача 5. «Нафтові плями» (30 балів)

Після аварії на морській нафтовій свердловині в океан вилилося багато нафти. Вона розтеклася по воді, після чого утворилася певна кількість нафтових плям. Для ліквідації наслідків аварії було створено штаб з координації дій. Співробітники штабу зберігають інформацію про плями в комп'ютері у вигляді матриці розмірністю M x N. Комірка матриці містить 0, якщо нафтова пляма в цих координатах відсутня та 1, якщо наявна (2≤M,N≤100). У матриці комірки плям не можуть дотикатися одна до одної ні сторонами, ні кутами.

Рішення:

type massiv=array[0..101,0..101] of byte;
var a: massiv;
 i,j,M,N,k,T,p,R,o: byte;
 b: array[1..1000] of integer;
procedure Poshuk(var a: massiv; x,y: byte);
begin
 if a[x,y]=1 then
 begin
 a[x,y]:=0;
 inc(p);
 Poshuk(a,x-1,y);
 Poshuk(a,x-1,y+1);
 Poshuk(a,x,y+1);
 Poshuk(a,x+1,y+1);
 Poshuk(a,x+1,y);
 Poshuk(a,x+1,y-1);
 Poshuk(a,x,y-1);
 Poshuk(a,x-1,y-1);
 end;
end;
begin
 assign(input,'input.txt');
 reset(input);
 readln(M,N);
 for i:=1 to M do
 for j:=1 to N do
 read(a[i,j]);
 close(input);
 assign(output,'output.txt');
 rewrite(output);
 T:=0;
 for i:=1 to M do
 for j:=1 to N do
 if a[i,j]=1 then
 begin
 p:=0;
 Poshuk(a,i,j);
 inc(T);
 b[T]:=p
 end;
 writeln(T);
 for i:=1 to T-1 do
 for j:=i+1 to T do
 if b[i]>b[j]
 then begin
 o:=b[i];
 b[i]:=b[j];
 b[j]:=o
 end;
 R:=1;
 for i:=1 to T do
 if b[i]=b[i+1]
 then inc(R)
 else begin
 writeln(b[i],' ',R);
 R:=1
 end;
 close(output)
end.

Наверх