Строки

@BugaVuga · Регистрация: 20.06.2013

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

Дано предложение .верно ли что его самое длинное слово имеет больше 10 символов?

@CodeR · 20.11.2013, 08:04

Pascal

Const m=[' ',',','!','?','.'];
Var s,max,sl:string;
    i:byte;
Begin
    write('Предложение: ');readln(s);
    s:=s+' ';
    For i:=1 to Length(s) do
     if not(s[i] in m) then sl:=sl+s[i]
     else
     Begin
       if Length(sl)>Length(max) then max:=sl;
       sl:='';
     End;
    writeln(Length(max)>10);
    readln;
End.

@BugaVuga 0 / 0 / 0 Регистрация: 20.06.2013 Сообщений: 50
		1
	Строки 20.11.2013, 06:42. Показов 1044. Ответов 1 Метки нет (Все метки) Дано предложение .верно ли что его самое длинное слово имеет больше 10 символов? 0

	20.11.2013, 08:04

Строки

Решение