Создать текстовый файл f1. Конкатенировать файл f 1 самого с собой, только записанного задом

наперед и результат записать в файл f2. Вывести на экран файл f 2.

Question

Информатика

Милен

28 января, 20:47

Создать текстовый файл f1. Конкатенировать файл f 1 самого с собой, только записанного задом

наперед и результат записать в файл f2. Вывести на экран файл f 2.

+1

Ответы (1)

Знаете ответ на вопрос?

Артемич · Answer 1

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.

Создать текстовый файл f1. Конкатенировать файл f 1 самого с собой, только записанного задомнаперед и результат записать в файл f2. Вывести на экран файл f 2.

Создать текстовый файл f1. Конкатенировать файл f 1 самого с собой, только записанного задом

наперед и результат записать в файл f2. Вывести на экран файл f 2.