rain87
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
SerP and MoloT
Код: uses crt;
const sogl:string='eyuioaj';
var s,cw,mw,msw:string;
ls,i,j,nsogl,lcw:byte;
mp,cp:real;
begin
clrscr;
writeln('Введите предложение:');
readln(s);
ls:=length(s);
i:=1;
mp:=0;
while(i<=ls)do
begin
while(i<=ls)and not(((s[i]>='A')and(s[i]<='Z'))or((s[i]>='a')and(s[i]<='z')))do inc(i);
cw:='';
while(i<=ls)and(((s[i]>='A')and(s[i]<='Z'))or((s[i]>='a')and(s[i]<='z')))do
begin
cw:=cw+s[i];
inc(i);
end;
nsogl:=0;
lcw:=length(cw);
for j:=1 to lcw do
if(pos(cw[j],sogl)<>0)then inc(nsogl);
cp:=nsogl/lcw;
writeln(cw,' ',cp:0:2);
if(cp>mp)then
begin
mp:=cp;
mw:=cw;
end;
for j:=1 to lcw div 2 do
if(cw[j]<>cw[lcw-j+1])then break;
if(cw[j]=cw[lcw-j+1])and(lcw>length(msw))then msw:=cw;
end;
writeln('Слово с макс содержанием согласных: ',mw,' ',mp:0:2);
writeln('Максимальное симметричное слово: ',msw);
end. |
сделал для английского алфавита, для русского переделки прозрачны
возможно, не так понял задание |
