|
var
st,st1,st2 : shortstring;
stdop,slmax : shortstring;
n,i,kol,nmax:byte;
begin
writeln ('input string st=');
readln (st);
st1:=st;
stdop:=' ';
nmax:=0;
for i:=1 to length(st1)-1 do
if (st[i]<>' ') and (st[i+1]<>'.') then stdop:=stdop+st[i]
else
begin
if length(stdop)>nmax then
begin
nmax:= length(stdop);
slmax:= stdop;
end;
end;
writeln('the longest word', slmax:3);
writeln ('number of letters in this word =',nmax:3);
readln;
end.
это поиск самого длинного слова
а как найти слово с 2мя последн одинаковыми буквами я хз ((
|