Добавил:
Mendeleev
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
uses linux;
var
i,fd:integer;
begin
fd := fdopen ('/dev/tty', Open_WRONLY);
for i := 1 to 100 do
fdwrite(fd, 'x', 1);
fdclose(fd);
end.
var
i,fd:integer;
begin
fd := fdopen ('/dev/tty', Open_WRONLY);
for i := 1 to 100 do
fdwrite(fd, 'x', 1);
fdclose(fd);
end.
Соседние файлы в папке 4