Дан текст, содержащий не более 10 слов, из строчных русских букв,
Дан текст, содержащий не более 10 слов, из строчных русских букв, меж примыкающими словами запятая, за заключительным словом - точка. Составить программку, в которой необходимо напечатать в алфавитном порядке все гласные буковкы, которые входят желая бы в одно слово более 2-ух раз.
написать на паскале и функций не необходимо
1 ответ
Вячеслав
Const rchars='аеиоуыэюя';var s: string; mas: array[1..length(rchars)] of integer; k,i: integer;
begin s:='которой,нужно,напечатать,алфавитном,порядке,все,гласные,буковкы,которые.'; readln(s); инициализация массива счётчика гласных for k:=1 to length(rchars) do mas[k]:=0; i:=1; while ilt;=length(s) do begin проверка на соответствие буковкы гласной, сообразно списку гласных for k:=1 to length(rchars) do if (rchars[k]=s[i]) and (mas[k]lt;gt;-1) then mas[k]:=mas[k]+1; if (s[i]=',') or (s[i]='.') then begin
проверить повторение гласных на два и более раз и проинициализировать массив счётчик for k:=1 to length(rchars) do if (mas[k]lt;=2) and (mas[k]lt;gt;-1) then mas[k]:=0 else mas[k]:=-1; end; Inc(i); end;
Вывод циклических гласных
s:=''; for k:=1 to length(rchars) do if mas[k]=-1 then s:=s+rchars[k];
writeln(s);end.
begin s:='которой,нужно,напечатать,алфавитном,порядке,все,гласные,буковкы,которые.'; readln(s); инициализация массива счётчика гласных for k:=1 to length(rchars) do mas[k]:=0; i:=1; while ilt;=length(s) do begin проверка на соответствие буковкы гласной, сообразно списку гласных for k:=1 to length(rchars) do if (rchars[k]=s[i]) and (mas[k]lt;gt;-1) then mas[k]:=mas[k]+1; if (s[i]=',') or (s[i]='.') then begin
проверить повторение гласных на два и более раз и проинициализировать массив счётчик for k:=1 to length(rchars) do if (mas[k]lt;=2) and (mas[k]lt;gt;-1) then mas[k]:=0 else mas[k]:=-1; end; Inc(i); end;
Вывод циклических гласных
s:=''; for k:=1 to length(rchars) do if mas[k]=-1 then s:=s+rchars[k];
writeln(s);end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Облако тегов