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

Question

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

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.

Comments

что такое ReverseString ?, можно ли её заменить чем нибудь другим? к примеру командой какой?

---

Переворачивает строку задом наперед

---

У тебя ее нет?

---

нет,нам её не давали, мы путём сдвига делали реверс

---

Я уже не могу изменить ответ. Время вышло. А как это - сдвигом?

---

В раздел описания переменных добавь одну строчку:
var
f1,f2:text;
s:string;
i:integer;

---

Удали: write(f2,ReverseString(s));

---

В это место вставь две строчки:
for i:=length(s) downto 1 do
write(f2,s[i]);

---

вот , спасибо огроменное!!!!