Государство на стыке центрально и южной европы . конфедерация​

#include <iostream>

int main(void){

   const int N = 3;

   const int M = 5;

   int mat[N][M];

   int i, j, row = 0, col = 0, n = 1;

   while(row <= (N - 1)){

       i = row;

       j = col;

       while((i < N) && (j >= 0))

           mat[i++][j--] = n++;    

       if(col < (M - 1))

           ++col;

       else

           ++row;

   }

   for(i = 0; i < N; ++i){

       for(j = 0; j < M; ++j){

           std::cout.width(3);

           std::cout << mat[i][j];

       }

       std::cout << std::endl;

   }

   return 0;

}

Объяснение:

А)
var    s:string;    mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице}    c:char;    i:longint; begin      read(s);      for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице}          mas[c]:=0;      for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)}          mas[s[i]]:=mas[s[i]]+1;      for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся}          if(mas[c]=1) then                       writeln(c); end.