Ответы на вопрос:
Begin var s: =readlnstring; var gl: ='аеиоуыяёюэ'; var m: =s.towords; var k: =m.length; var b: =new integer[k]; for var i: =0 to k-1 do b[i]: =m[i].where(c-> c.toupper in gl).count; writeln(m[b.indexmax]) end.
Pascalabc.net 3.3 begin var gl: =['а','а','е','е','ё','ё','и','и','о','о','у','у','ы','ы','э','э','ю','ю','я','я']; var a: =readlnstring('> ').towords(' ',',','.'); var b: =arrfill(a.length,0); for var i: =0 to a.length-1 do b[i]: =a[i].where(x-> x in gl).count; writeln(b.max); foreach var i in b.indexesof(i-> i=b.max) do println(a[i]); end. пример: > дан текст найти слово,в котором максимальное количество гласных букв 5 максимальное
Var n: integer; function kol(n: integer): integer; var k: integer; begin k: =0; while n> 0 do begin k: =k+1; n: =n div 10; end; kol: =k; end; begin write('n = '); readln(n); writeln('k = ',kol(n)); end. пример: n = 123456 k = 6
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
ппппппп27р25.09.2021 04:01
-
feruzbek21428.07.2022 19:24
-
1XyJIuraH102.04.2023 19:01
-
aktczzzzz17.12.2022 16:26
-
nastyaiermakova1201.12.2020 07:42
-
данил2088816.02.2022 13:24
-
yuliamoisei27.05.2021 10:24
-
Эзоз27.08.2021 02:01
-
kirillusupov20ovyv0011.12.2022 04:00
-
arina8856129.05.2020 07:07
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.