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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

end;
end;
procedure DestroyRooms; {освобождение памяти }
var p : proom;
procedure DestroyP(pl : proom);
begin
while (pl <> nil) do begin
p := pl;
pl := pl^.prev;
dispose(p);
end;
end;
begin
DestroyP(pLast1); DestroyP(pLast2);
DestroyP(pLast3); DestroyP(pLast4);
pEnd := nil; pFirst := nil;
end;
var f1, f2 : text;
n, i, x, y : longint;
c : char;
begin
clrscr;
writeln('Первый тур школы - олимпиады ,');
writeln('Секция программирования и информационного
моделирования');
writeln('Номинация информатика как профилирующая дисциплина');
writeln('Задание № 2.'); writeln;
assign(f1, 'input.txt'); assign(f2, 'output.txt');
write('Открываем файл input.txt..............');
{$I-}
reset(f1);
{$I+}
if (IOResult <> 0) then Error('не найден!');
writeln('ОК');

Страницы