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

UptoLike

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

Рубрика:

write(output,Plan[j,i]);

end;

writeln(output);

end

end;

{Вывод сообщения об ошибке }

procedure ShowError;

begin

writeln(output,'NO')

end;

{Закрываем использованные файлы }

procedure CloseIO;

begin

close(input);close(output)

end;

begin {Основная программа}

InitIO;

Clear;

if GetMonkeys(1) then

ShowPlan

else

ShowError;

CloseIO

end.

Задача 4. «Прямоугольники»