var n, i, a, b:integer;
begin
assing(input,'27.txt');
readln(n);
for i:=1 to n
begin
readln(a,b);
end;
end. |
fin=open("27.txt")
n=int(fin.readline())
for i in range(n);
a,b=map(int, Fin.readline().split())
fin.close() |
|
в языке PascalABC.NET можно выполнить перенаправление потока ввода:
assign( input, 'k7.txt' );
readln(s);
программа будет «думать», что читает данные, введённые с клавиатуры (с консоли), а на самом деле эти данные будут прочитаны из файла k7.txt
в языке FreePascal также можно выполнить перенаправление потока ввода, но нужно дополнительно открывать входной поток:
assign( input, 'k7.txt' );
reset( input ); { для FreePascal!!! }
readln(s);
- при работе в среде FreePascal нужно убедиться, что в параметрах компилятора включена поддержка длинных символьных строк; на всякий случай стоит добавить в первой строке программы директиву
{$H+} |
в языке Python удобнее всего использовать такую конструкцию:
with open("k7.txt", "r") as F:
s = F.readline()>
конструкция with-as – это контекстный менеджер, в данном случае он открывает указанный файл в режиме чтения (второй аргумент «r» при вызове функции open), записывает ссылку на него в файловую переменную F, выполняет тело блока (читает первую строку файла в переменную s) и закрывает (освобождает) файл |
