Автор: ника

ника — Sun, 05 Sep 2021 13:25:10 +0000

В ответ на asdfg. а можно на пайтоне...

Автор: asdfg

asdfg — Sat, 17 Jul 2021 21:41:03 +0000

Рабочий вариант для PascalABC:

var
  s: string;
  f: file of integer;
  i, n, k: integer;

begin
  readln(s);
  readln(k);
  if fileexists(s) then   // если есть файл с таким названием...
    assign(f, s);         // ...то соединить его с переменной  
  reset(f);
  if filesize(f) >= k then //если количество элементов в файле больше чем
  begin                     //номер элемента в задании
    seek(f, k - 1); //устанавливаем указатель на предыдущую позицию
    read(f, i);     //считывает следующий за указателем элемент
    write(i, ' ');  // выводит его
  end
  else write(-1);
end.

var

s: string;

f: file of integer;

i, n, k: integer;

begin

readln(s);

readln(k);

if fileexists(s) then // если есть файл с таким названием...

assign(f, s); // ...то соединить его с переменной

reset(f);

if filesize(f) >= k then //если количество элементов в файле больше чем

begin //номер элемента в задании

seek(f, k - 1); //устанавливаем указатель на предыдущую позицию

read(f, i); //считывает следующий за указателем элемент

write(i, ' '); // выводит его

end

else write(-1);

end.

Комментарии: Решаем задачи Абрамян на Паскале. File6

Автор: ника

Автор: asdfg