Перевод чисел из одной позиционной системы в другую ​

#include <iostream>

#define tsar c++

using namespace std;

int segfault() {

   int* ptr; ptr = 0;

   return *ptr;

}

int main() {

   unsigned int n; cin >> n;

   unsigned int m; cin >> m;

   auto array = new int*[n];

   for (size_t idx = 0; idx < n; idx++) {

       array[idx] = new int[m];

       for (size_t idy = 0; idy < m; idy++)

            cin >> array[idx][idy];

   }

   unsigned int a; cin >> a;

   unsigned int b; cin >> b;

   int res = 0;

   for (size_t idx = a - 1; idx < b; idx++) {

       for (size_t idy = 0; idy < m; idy++)

           res += array[idx][idy];

   }

   cout << res;

   delete array;    

}

Объяснение:

а.                                              

program raf105;

var abcd,a,b,c,d,sum: integer;

begin

write('Введите четырёхзначное число: ');

readln(abcd);

a:= abcd div 1000;

b:= (abcd div 100) mod 10;

c:= (abcd div 10) mod 10;

d:= abcd mod 10;

sum:= a+b+c+d;

writeln('Сумма цифр: ',sum);

end.

в.                                              

program raf105;

var abcd,a,b,c,d: integer;

begin

write('Введите четырёхзначное число: ');

readln(abcd);

a:= abcd div 1000;

b:= (abcd div 100) mod 10;

c:= (abcd div 10) mod 10;

d:= abcd mod 10;

abcd:= a*1000 + c*100 + b*10 + d;

writeln('Вывод: ',abcd);

end.

г.                                              

program raf105;

var abcd,a,b,c,d: integer;

begin

write('Введите четырёхзначное число: ');

readln(abcd);

a:= abcd div 1000;

b:= (abcd div 100) mod 10;

c:= (abcd div 10) mod 10;

d:= abcd mod 10;

abcd:= c*1000 + d*100 + a*10 + b;

writeln('Вывод: ',abcd);

end.

                                              PascalABC 3.4.2