Дан список из М слов. В словах с чётной длиной 2 средние буквы удвоить. Вывести эти слова.​ паскаль.

Переведите числа в полулогарифмическую форму записи:

234000 = 2.34×10⁵
0.0045 = 4.5×10⁻³
678 = 6.78×10²
7.302 = 7.302×10⁰
4090 = 4.09×10³
0.0306 = 3.06×10⁻²

К каким типам можно отнести перечисленные ниже данные?

200 - целое, 1 бaйт без знака, 2 байта со знаком
-17 - целое, 1 байт
2305 - целое, 2 байта
5.89 - вещественное
56890 - целое, 2 байта без знака, 4 байта со знаком (3 байта не бывает)
-56890 - целое 4 байта
-32767 - целое, 2 байта
-32769  - целое, 4 байта
2147483648 - целое, 4 байта
{ - символ, байт
7 - символ, байт
Привет - строка, 6 байт ASCII, 12 байт Unicode
1945 год - строка, 8 байт ASCII, от 11 до 16 байт Unicode (в разных стандартах)
-31009 - целое, 2 байта
byte - строка, 4 байта ASCII, от 4 до 8 байт Unicode

#include <iostream>
#include <set>

using namespace std;
int main()
{
    string s;
    cin >> s;
    set<char> s1 = {'a','e','i','o','u','y'};
    set<char> s2 = {'b','c','d','f','g','h','j','k','l','m','n','p','q','r','s','t','v','w','x','z'};
    int n1 = 0, n2 = 0;
    for(int i=0; i<s.length(); i++) {
      if(s1.find(s[i]) != s1.end()) n1++;
       else if(s2.find(s[i]) != s2.end()) n2++;
    }
    cout << n1 << " " << n2 << "\n";
    if (n1>n2) cout << "Гласных больше";
     else if (n1<n2) cout << "Согласных больше";
      else cout << "Кол-во гласных = кол-ву согласных";
    return 0;
}

Пример:
program_var.
3 7
Согласных больше