19.12.2005, 13:47
общий
это ответ
Здравствуйте, Andrew!
Можно вот так:
1) Считываем всю строку.
2) Ищем в строке 1-ый пробел, выделяем слово до этого пробела.
3) Запоминаем слово и удаляем его из строки вместе с пробелом.
4) Повторяем со 2-ого пункта пока в строке не останется пробелов. То что останется в строке будет последним словом.
В следующей программе приведена программа, ситывающая слова из файла, записанные через пробел и записывающая х в столбик.
Приложение:
program Project2;{$APPTYPE CONSOLE}uses SysUtils;var f:textfile; s,w:string; //S-строка, w-слово k:integer;begin AssignFile(f,‘1.txt‘); reset(f); readln(f,s); while pos(‘ ‘,s)<>0 do begin k:=pos(‘ ‘,s); w:=copy(s,1,k-1); writeln(w); delete(s,1,k); end; w:=s; writeln(w); readln; closefile(f)end.