Найти самое длинное слово в тексте.

@Кссер · Регистрация: 31.01.2010

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

Дан текст. Найти самое длинное слово в тексте.

@Law[L]esS · 09.03.2010, 17:35

Pascal

var
 s,s1,max:string;
 i:integer;
begin
 readln(s);
 s:= s + ' ';
 while pos(' ',s) > 0 do begin
   s1:= copy(s,1,pos(' ',s));
   delete(s,1,pos(' ',s));
   if length(s1) > length(max) then max:=s1;
 end;
 writeln(max);
end.

П.С Пользуйтесь поиском

@Кссер 0 / 0 / 1 Регистрация: 31.01.2010 Сообщений: 50
		1
	Найти самое длинное слово в тексте. 09.03.2010, 17:29. Показов 11005. Ответов 1 Метки нет (Все метки) Дан текст. Найти самое длинное слово в тексте. 0

	09.03.2010, 17:35

Опции темы

Найти самое длинное слово в тексте.

Решение