Проверьте программу!
Program f4;
var f1, f2 : text;
s: string;
begin
Assign (f1,'t1. txt') ;
Assign (f2,'t2. txt') ;
Reset (f1) ;
Rewrite (f2) ;
while not eof (f1) do
begin
readln (f1, s) ;
writeln (f2, s) ;
end;
close (f1) ;
close (f2) ;
end.
Ответы (1)
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Проверьте программу! Program f4; var f1, f2 : text; s: string; begin Assign (f1,'t1. txt') ; Assign (f2,'t2. txt') ; Reset (f1) ; Rewrite ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Скажите, почему программа не видит input? Program objective1; var a:real; t:text; Begin assign (t,'input. txt') ; reset (t) ; read (t, a) ; close (t) ; assign (t,'output.
Ответы (1)
Program Pr1; uses crt; var fl1, fl2:text; i, n, v, a, b:integer; Begin clrscr; assign (fl1,'input. txt') ; assign (fl2,'output.
Ответы (1)
Помогите объяснить задачу! Program String29; var otvet:String; i:integer; S0, S:String; C:char; begin Writeln ('Введите строкy S') ; readln (S) ; Writeln ('Введите строкy S0') ; readln (S0) ; Writeln ('Введите символ C') ; readln (C) ;
Ответы (1)
Помогите отредактировать программу - Паскаль. Где-то ошибка. Необходимо удалить первый кратный 3 элемент массива. program udalenie; var i, n, k:integer; a:array[1 ... 1000] of integer; begin assign (input,'input. txt') ; assign (output,'output.
Ответы (1)
Написать программу нахождения периметра параллелограмма по известным сторонам b и h (b и h - целые числа, вводимые с клавиатуры).
Ответы (1)
Помогите с ответом
Напиши, что умеют делать животные. Прочти предложения. 1. A fish. 2. A horse. 3. A bird. 4. A chimp. 5. A dog. 6. A mouse. 7. A dolphin. 8. A kangaroo. 9. An. elephant. 10. A rabbit.
Нет ответа
Сделайте синтасический разбор предложений: Быстро растаял под лучами яркого солнца снег. Хороши летом глазастые ромашки! Идёшь в тишине, и уха коснётся трубный звук.
Нет ответа
С. Сахарнов "Летучая рыба"
Нет ответа
Объясните, почему уважение американцев к труду можно считать одной из причин подъёма экономики. 19 Век
Нет ответа
Прочитайте. определите слово по его лексическому значению неб льшой сочный плод курстарников и трав. () тот, кто учится в школе () первый месец зимы () иструмент для копания земли () хлебный злак () часть горизонта, где восходит солнце () вставьте
Нет ответа