исключаем пробелы со строк в файле

[destra1j]

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

[Serge_Bliznykov]

исключить пробелы, стоящие в конце строки на Паскале очень просто:

while (Length(s)>0) and (s[Length(s)]=' ') do Delete(s, Length(s), 1);

или так:

i:=Length(s);
While (i>0) and (Copy(s,i,1)=' ') do Dec(i);
if i>0 then s:=Copy(s,1,i);

а что означает фраза "пользователь сам должен вводить строки и их может быть несколько" ? Я же так понял, что у Вас:

Дан текстовый файл f

Вы уж определитесь, откуда строки берутся - из текстового файла или вводятся пользователем!

Впрочем, предложенный код должен работать вне зависимости от того, откуда взялась строка в переменной s

[destra1j]

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

[Serge_Bliznykov]

не проблема:

var f, f1 : Text;
 s : string;
begin
   Assign(f,'file1.txt');
   WriteLn('Вводите строки файла (пустая строка конец ввода):');
   repeat
     ReadLn(s);
     if s<>'' then WriteLn(f,s);
   until s='';
   Close(f);
   Reset(f);
   Assign(f1, 'file2.txt');
   Rewrite(f1);
   while not eof(f) do begin
     ReadLn(f, s);
     while (Length(s)>0) and (s[Length(s)]=' ') do Delete(s, Length(s), 1);
     WriteLn(f1,s);
   end; 
   Close(f);
   Close(f1);
   WriteLn('Done.');
end.

[destra1j]

круто спасибо за помощь

[destra1j]

я на форуме недавно и не знаю нада ли сдесь закрывать темы но эта проблема решена.