Создать текстовый файл f1. Конкатенировать файл f1 самого с собой, только записанного задом наперед и результат записать в файл f2. Вывести на экран файл f2.
Создать текстовый файл f1. Конкатенировать файл f1 самого с собой, только записанного задом
наперед и результат записать в файл f2. Вывести на экран файл f2.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы