Ответы на вопрос:
Var f1,f2: text; s: string; begin assign(f1,'d: \f1.txt'); reset(f1); read(f1,s); close(f1); assign(f2,'d: \f2.txt'); rewrite(f2); write(f2,s); write(f2,reversestring(s)); close(f2); assign(f2,'d: \f2.txt'); reset(f2); read(f2,s); writeln(s); close(f2); end.
Популярно: Информатика
-
spinny9tim21.10.2022 10:13
-
nusbek10.08.2021 05:40
-
mixpix10.09.2022 20:07
-
faire628.07.2021 00:32
-
slavikelite07405.09.2021 11:01
-
Евгениямагическая12.06.2021 12:41
-
tarasbulba20405.07.2020 13:25
-
matvejp81631.05.2020 18:05
-
aki414.08.2021 12:56
-
radion200509.05.2023 01:14