В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Misani
Misani
06.09.2021 10:38 •  Информатика

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

Ответ:
YAMAHAv
YAMAHAv
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.
0,0(0 оценок)
Ответ:
адинаева
адинаева
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.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?