Задача 1 Урок 18
Primary tabs
Создайте файл в вашей операционной системе и выведите в консоль всё его содержимое.
var f1: text; filename, s: string; begin filename := 'F:\Pascal\урок 18\input.txt'; assign(f1, filename); reset(f1); writeln('=======Содержимое файла======='); while not eof(f1) do begin readln(f1, s); writeln(s); end; writeln('=============================='); readln(); end.
- Log in to post comments
- 937 reads