Консультация № 121819
05.02.2008, 19:16
0.00 руб.
0 1 1
Здравствуйте! Мне необходимо помощь в написании программы. Дано задание: каждое второе слово данного текстового фаила переписать задом наперед и сохранить в другом фаиле.

Обсуждение

Неизвестный
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.
Форма ответа