Дан текстовый файл. Записать все строки файла в новый файл, изменив порядок следования букв в каждой строке на противоположный

@Masox · Регистрация: 07.11.2012

Author24 — интернет-сервис помощи студентам

Дан текстовый файл. Записать все строки файла в новый файл, изменив порядок следования букв в каждой строке на
противоположный.

Kodzaev · 17.01.2013, 13:51

Pascal

var
  f, g: text;
  s, st: string;
  i: integer;
 
begin
  Write('Введите имя файла: ');
  Readln(s);
  Assign(f, s + '.txt');
  {$I-}
  Reset(f);
  {$I+}
  if IOResult = 0 Then
  begin
    Assign(g, 'file111.txt');
    Rewrite(g);
    while not Eof(f) do
    begin
      Readln(f, s);
      st := '';
      for i := Length(s) downto 1 do
        st := st + s[i];
      Writeln(g, st);
    end;
    Close(f);
    Close(g);
  end
  else 
    Writeln('Файл не найден');
  Readln
end.

@Rusalina · 12.12.2014, 16:10

благодарю)

@Masox 2 / 2 / 0 Регистрация: 07.11.2012 Сообщений: 26
		1
	Дан текстовый файл. Записать все строки файла в новый файл, изменив порядок следования букв в каждой строке на противоположный 17.01.2013, 12:33. Показов 1712. Ответов 2 Метки нет (Все метки) Дан текстовый файл. Записать все строки файла в новый файл, изменив порядок следования букв в каждой строке на противоположный. 0

@Rusalina 0 / 0 / 0 Регистрация: 01.11.2014 Сообщений: 9
	12.12.2014, 16:10	3
	благодарю) 0

Дан текстовый файл. Записать все строки файла в новый файл, изменив порядок следования букв в каждой строке на противоположный

Решение