profile
Опубликовано 5 лет назад по предмету Информатика от Аккаунт удален

50 баллов. PascalABC
Дан текстовый файл f. Исключить пробелы, стоящие в концах его строк. Результат поместить в файл f1.

  1. Ответ
    Ответ дан petyaGavrikov
    var f,f1:text;
    s:string;
    begin
    assign(f,'f.txt');
    reset(f);
    assign(f1,'f1.txt');
    rewrite(f1);
    while not eof(f) do
     begin
     readln(f,s);
     {есть функция:
      function TrimRight(s: string): string;
      Возвращает строку с удаленными конечными пробелами
      Можно и так, как написано ниже}
     while s[length(s)]=' ' do delete(s,length(s),1);
     writeln(f1,s);
     end;
    close(f);
    close(f1);
    end.
Самые новые вопросы