Всі умови | Умова: Дано символьний файл f. Записати в файл g компоненти файлу f в зворотному порядку.
(С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №485)
program Pr485;
var
fp, f : text;
s, a : string;
i : integer;
begin
assign(fp,'f.txt');
reset(fp);
assign(f,'g.txt');
rewrite(f);
read(fp,s);
a:='';
for i:=length(s) downto 1 do
a:=a+s[i];
write(f,a);
close(fp);
close(f);
end.