Петя составляет 6-буквенные коды из букв п, е, т, я. каждую букву можно
использовать любое количество раз или совсем не использовать, при этом
нельзя ставить подряд две гласные или две согласные. сколько различных
кодов может составить петя?

#include <iostream>

#include <vector>

#include <cstdint>

using namespace std;  template <class T>

istream& operator>>(istream &in, vector<T> &vec) {   for (auto &it : vec)     in >> it;   return in;

}  

template <class T>

ostream& operator<<(ostream &out, vector<T> &vec) {   for (auto &it : vec)     out << it << ' ';   return out;

}  

template <class T, class U>

istream& operator>>(istream &in, pair<T, U> &pair) {   in >> pair.first >> pair.second;   return in;

}  

template <class T, class U>

ostream& operator<<(ostream &out, pair<T, U> &pair) {   out << pair.first << ' ' << pair.second;   return out;

}

signed main(void) {     int32_t n; cin >> n;     vector<vector<int64_t>> a(n, vector<int64_t>(n,-1));     int64_t x = 0, y = n/2;     a[x][y] = 1;     for(int32_t i = 2; i <= n*n; ++i) {         int _x = x, _y = y;         if(!x) {             x =  n-1;         }         else {             --x;         }         if(y == n-1) {             y = 0;         }         else {             ++y;         }         if(a[x][y] != -1) {             x= _x, y = _y;             while(a[x][y] != -1) {                 if(x == n-1) {                     x = 0;                 }                 else {                     ++x;                 }             }         }         a[x][y] = i;     }     for(int32_t i = 0; i < n; ++i) {         cout << a[i] << '\n';     }     return 0;  }

Объяснение:

Запишем на C++ то, что написано в условии.

Если надо, то код также прикрепил в виде файла

Списывать не хорошо)

Если повезёт увидемся в (СИРИУС)

Var
a,b,c: integer;
begin
write('введите первую сторону треугольника ');
readln(a);
write('введите вторую сторону треугольника ');
readln(b);
write('введите третью сторону треугольника ');
readln(c);
if (a<0) or (a<0) or (b<0) then write('такого треугольника не существует ') else
if (a<>b) and (b<>c) then write('треугольник разносторонний') else
if (a=b) and (b=c) then write('треугольник равносторонний') else
if (a=b) or (a=c) or (b=c) then write('треугольник равнобедренный');
writeln;
end.