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

@Astoria · Регистрация: 24.12.2009

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

Собственно вот такая задачка, помогите пожалуйста.

@yanyk1n · 09.02.2010, 20:08

Pascal

uses crt;
var f,g:text;
st:string;
begin
 assign(f,'input.txt');
 assign(g,'output.txt');
 reset(f);
 rewrite(g);
 while not eof(f) do
 begin
  readln(f,st);
  while (st[length(st)]=' ') and (length(st)>0) do delete(st,length(st),1);
  while (st[length(st)]<>' ') and (length(st)>0) do delete(st,length(st),1); 
  writeln(g,st);
 end;
 close(f);
 close(g);
end.

@Astoria 0 / 0 / 0 Регистрация: 24.12.2009 Сообщений: 9
		1
	Преобразовать текстовый файл, удалив последнее слово в каждой строке. 09.02.2010, 19:43. Показов 1926. Ответов 1 Метки нет (Все метки) Собственно вот такая задачка, помогите пожалуйста. 0

	09.02.2010, 20:08

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

Решение