Среди 5 значных числео найдите, симметричные числа. распишите решение подробно, .

Var   a: integer;   b: byte;   c: string; begin   for b : = 1 to 5 do   begin     readln(a);     c : = string.empty;     foreach ch: char in inttostr(a) do //переводим в строку и переворачиваем её       c : = ch + c;     if (c = inttostr(a)) then //сравниваем исходную "строку-число" и перевёрнутую       writeln('число ', a, ' симметрично! ');   end; end.

#include

#include

int main()

{

int n;

int cnt = 0;

std: : cin > > n;

int **arr = new int*[n];

for(int i=0; i

{

arr[i] = new int[n];

for(int j=0; j

{

std: : cin > > arr[i][j];

//arr[i][j] = ++cnt;

}

}

cnt = 0;

while(cnt < n)

{

for(int i=0; i< (n-cnt); i++) std: : cout < < std: : setw(2) < < arr[cnt][i] < < " ";

std: : cout < < std: : endl;

cnt++;

}

for(int i=0; i

delete [] arr[i];

delete [] arr;

arr = nullptr;

system("pause");

return 0;

}

Program ez_1; var  s: integer; a: array [1..9] of integer; \ i: byte; begin   a[1] : = 5;   for i : = 1 to 9 do a[i] : = a[1] + 2 * i;   for i : = 1 to 9 do begin     s : = 3 * (a[i] * a[i]);     writeln(s);   end; end. 2) program ez_2; var   s, m, b: integer;   a: array [1..9] of integer;   i: byte; begin   readln(s);   for i : = 1 to s do   begin     read(a[i]);   if a[i] < 0 then m : = m + 1 else b : = b + 1;   end;   writeln(b, ' положительных чисел');   writeln(m, ' отрицательных чисел'); end. вроде так. если что-то не так. пиши.