Ответы на вопрос:
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.
Популярно: Информатика
-
hermionagr7oy47z310.12.2022 02:37
-
Алена1112ал04.10.2021 14:50
-
holil07070732510.09.2022 20:04
-
3toH01.11.2021 14:37
-
nikitabars716.09.2020 00:02
-
артём542479405.02.2020 08:46
-
Minydog03.03.2021 05:25
-
лето199007.01.2022 00:05
-
mzhenyak199922.05.2021 21:35
-
Diankamilanka200520.04.2022 02:45