Олимпиадные задачи по программированию. Ч. 4. Лучшие решения. Ускова О.Ф - 68 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

end;
begin
ClrScr;
Assign(F,'input.txt');
Reset(F);
Readln(F,n);
for i:=1 to 4 do kor[i]:=0;
for j:=1 to max do for i:=1 to max do mas[i,j]:=false;
for k:=1 to n do
begin
read(F,i); readln(F,j);
mas[i,j]:=true;
end;
for l:=1 to 4 do for j:=1 to max do for i:=1 to max do Check(i,j,l);
Writeln('Матрица : ');Writeln;
{ Вывод на экран }
for j:=1 to max do
begin
Write(' ');
for i:=1 to max do
begin
if mas[i,j] then write(#178:2) else write(#176:2);
end;
Writeln;
end;
writeln;
for i:=1 to 4 do
begin
Writeln(i,' палубные - ', kor[i]);
end;
Readkey;
end.

Страницы