05.02.2008, 19:36
общий
это ответ
Здравствуйте, Dark Wanderer!
Программа в приложении.
Входной файл - input.txt
Выходной - output.txt
Удачи!
Приложение:
var i, k : integer; f, f1 : text; s, s1 : string;begin assign(f, ‘input.txt‘); reset(f); assign(f1, ‘output.txt‘); rewrite(f1); i := 1; while not EOF(f) do begin ReadLn(f,s); if i mod 2 = 0 then begin s1 := ‘‘; for k := length(s) downto 1 do s1 := s1 + copy(s,k,1); writeLn(f1, s1); end; i := i + 1; end; close(f); close(f1);end.