Регистрация
malinanika704
06.09.2022 02:42
Информатика
Есть ответ 👍

Дан текст найти слово,в котором максимальное количество гласных букв

140
312
Посмотреть ответы 3

Ответы на вопрос:

Саша22877324516
Саша22877324516
4,7(39 оценок)
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.
DnoKaKtys
DnoKaKtys
4,7(85 оценок)
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 максимальное
серго220
серго220
4,4(58 оценок)

#include <iostream>

using namespace std;

bool isLetterInString(string &s, char &c){

   for(auto &i: s)

       if(i == c)

           return true;

   return false;  

}

void solve(){

   char k;

   string L;

   cin >> L >> k;

   isLetterInString(L, k) ? cout << "yes" : cout << "no";

}

int main(){

   solve();

}

Популярно: Информатика