Отыскать слово в тексте, содержащее величайшее количество букв "м".
Найти слово в тексте, содержащее наивеличайшее количество букв quot;мquot;.
Задать свой вопрос1 ответ
Валя Черноголовкина
USES Crt;
VAR
nbsp;nbsp;A, D : STRING [255]; nbsp;I, KB, MKB, K, MK, NP, MNP : INTEGER;
BEGIN
nbsp;nbsp;ClrScr;
nbsp;nbsp;WriteLn(Введите текст); nbsp;ReadLn(A);
nbsp;nbsp;I:=1; KB:=0; MKB:=0; NP:=1;
nbsp;nbsp;While(Ilt;=Length(A)) DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;While(A[I]lt;gt; ) DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;IF A[I]=м THEN KB:=KB+1;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;K:=K+1; nbsp;I:=I+1;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;IF MKBlt;KB THEN Begin nbsp;MKB:=KB; nbsp;MNP:=NP; nbsp;MK:=K; nbsp;End;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;NP:=I+1; KB:=0; K:=0;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;I:=I+1;
nbsp;nbsp;End;
nbsp;nbsp;D:=Copy(A,MNP,MK);
nbsp;nbsp;WriteLn(Слово с максимальным количеством букв quot;мquot; - nbsp;,D);
END.
VAR
nbsp;nbsp;A, D : STRING [255]; nbsp;I, KB, MKB, K, MK, NP, MNP : INTEGER;
BEGIN
nbsp;nbsp;ClrScr;
nbsp;nbsp;WriteLn(Введите текст); nbsp;ReadLn(A);
nbsp;nbsp;I:=1; KB:=0; MKB:=0; NP:=1;
nbsp;nbsp;While(Ilt;=Length(A)) DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;While(A[I]lt;gt; ) DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;IF A[I]=м THEN KB:=KB+1;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;K:=K+1; nbsp;I:=I+1;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;IF MKBlt;KB THEN Begin nbsp;MKB:=KB; nbsp;MNP:=NP; nbsp;MK:=K; nbsp;End;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;NP:=I+1; KB:=0; K:=0;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;I:=I+1;
nbsp;nbsp;End;
nbsp;nbsp;D:=Copy(A,MNP,MK);
nbsp;nbsp;WriteLn(Слово с максимальным количеством букв quot;мquot; - nbsp;,D);
END.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов