Помогите плиз Перенаправление Прочитайте число n из файла input.txt и выведите его в файл...

Question

Помогите плиз

Перенаправление
Прочитайте число n из файла input.txt и выведите его в файл output.txt
(-32768 < n < 32767)!
Входные данные:
В единственной строке входного файла input.txt записано число от -32767 до 32766!
Выходные данные:
В единственную строку выходного файла output.txt нужно вывести в точности то же число, которое задано во входном файле!

Примеры:
№ input.txt output.txt
1 3 3
2 0 0
3 32766 32766
4 -32761 -32761

Comments

Язык Паскаль

Answer 1

Program File;
var
  f1,f2:text;
  i: integer;
begin
  AssignFile(F,'input.txt');  Reset(F);  Read(F,i);
  Close(F);

  AssignFile(f1,'output.txt');
  Rewrite(f1);
  Write(f1,i);  Close(f1);
end.

Comments

Сайт nschool. by Написал что это не верное решение

---

Ну плиз помоги

---

program File;
var
f1,f2:text;
i: integer;
begin
AssignFile(F1,'input.txt'); Reset(F1); Read(F1,i);
Close(F1);

AssignFile(f2,'output.txt');
Rewrite(f2);
Write(f2,i); Close(f2);
end.

---

сори, спешил, забыл индексы поправить.

---

все равно пишет задача id 1 решена на 0 процентов :(

---

AssignFile попробуй заменить на Assign. Возможно это дает ошибку из-за различных версий компиляторов.

---

так как более старый компилятор не знает инструкции AssignFile

---

Значит школа говнo