Написать программу, которая открывает файл 1.000.000 раз - Pascal ABC

Формулировка задачи:

Напишите програму которая открывает файл 1.000.000 раз плюс должен быть там путь к файлу!

Код к задаче: «Написать программу, которая открывает файл 1.000.000 раз - Pascal ABC»

textual
program wtf;
 
var
  i: integer;
  f: text;
 
begin
  assign(f, 'C:\f.txt');
  for i := 1 to 1000000 do
  begin
    reset(f);
    close(f);
  end;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

6   голосов, оценка 3.500 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы