1. Информатика
  2. Напишите , чтобы в pascal

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

pro100skill132 pro100skill132    2   22.09.2019 21:20    0

Ответы
bosiy01 bosiy01  08.10.2020 10:38
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.
ПОКАЗАТЬ ОТВЕТЫ
mirapax1997ozb3lk mirapax1997ozb3lk  08.10.2020 10:38
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Kairas Kairas  30.11.2021 16:35
Создать простой сайт на с# Веб-приложение ASP.NET Core база данных + 3-4 класса моделей контроллеры + представления пользователи (Identity) API-контроллеры локализация интеграция...
GGG228666 GGG228666  23.01.2021 15:07
Наведите примеры предметной области​...
Arina0903 Arina0903  23.01.2021 15:04
Объясните каждую строку в программе (язык С#) static void Main() { string s = Console.ReadLine(); string f = ; foreach (char i in s) if (i != ) f += i; Console.WriteLine(f);...
aruzakova05 aruzakova05  29.09.2019 02:40
Уберите из выражения лишние скобки (то есть те, которые не изменяют порядок действий при вычислениях). 24*(2*(x+2)/2)+(24*x)/(y/2)...
gvg1971 gvg1971  29.09.2019 02:40
111+11 в двоичнрй системе 100-11 в двоичнрй системе. решить примеры....
шкиль1 шкиль1  29.09.2019 02:40
На компьютере была найдена программа,которая при запуске просила сначала ввести текст,потом - ввести число ; после чего печатала на экране результат. результаты запуска...
Змей24 Змей24  29.09.2019 02:40
C/c++ составить программу возведения натурального числа n в квадрат, учитывая такую закономерность: 1 ^ 2 = 1, 2 ^ 2 = 1 + 3, 3 ^ 2 = 1 + 3 + 5, 4 ^ 2 = 1 + 3 + 5 + 7, п...
staisywell1 staisywell1  29.09.2019 02:40
Найдите сумму чисел 1b(16) и 235(8); ответ дать в десятичной системе счисления...
ozilpro228 ozilpro228  29.09.2019 02:40
1. как создать и сохранить документ? 2. как осуществить поиск и замену фрагмента текста? 3. как выполнить автозамену фрагмента текста? 4. назовите виды списков 5. как разбить...
msa234 msa234  29.09.2019 02:40
1. 11264 бит = ? кбайт 2. 70866960384 бит = ? мбайт 3. 1 мбайт = ? байт...

Популярные вопросы