Напишите задачу, чтобы в PASCAL ABC она работала. Перенаправление Прочитайте число n из...

Question

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

Comments

а какой фолдер Xd

---

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

---

готово

---

если хотите вручную пропистаь фолдер, делайте это в assign , вручную полный путь

Answer 1

Var
  t:text;
  a:integer;
Begin
  assign(t,'input.txt');// файл создать в диске c в папке pabcwork.net (инпут и оутпут)
reset(t);
read(t,a);close(t);assign(t,'output.txt');rewrite(t);
write(t,'Вот число из файла input.txt ', a);close(t);end.

Answer 2

Var k:longint;f:text; beginassign(f,'C:\q\input.txt');reset(f);read(f,k);close(f);Write(k);assign(f,'C:\q\output.txt'); Rewrite(f); Write(f,k);close(f);end.