Помогите решить две задачи

[polukrovka]

1)Дано целое число N. Определить, является ли оно палиндромом (например, число 2332) без использования
строковых типов.

2)В квадратной целочисленной матрице A переставить элементы главной и побочной диагоналей относительно вертикальной оси.

PS: Заранее спасибо!

[puporev]

№1.
uses crt;
var N,M:longint;
    i,k:integer;
    b:array[1..10] of byte;
begin
clrscr;
write('Vvedite naturalnoe chislo N=');
readln(N);
M:=N; {запоминаем число}
k:=0;
while M>0 do {пока число больше ноля}
  begin
    i:=M mod 10;{отделяем последнюю цифру}
    k:=k+1;  {считаем}
    b[k]:=i;  {заносим в массив}
    M:=M div 10;{пишем число без последней цифры}
  end;
for i:=1 to k do
M:=M*10+b[i];  {собираем цифры в новое число}
if M=N then write('Palindrom')
else write('Ne palindrom');
readln
end.

№2.
uses crt;
var a:array[1..10,1..10]of integer;
    n,i,j,x:integer;
begin
clrscr;
write('n=');readln(n);
writeln('Ishodnyj massiv:');
for i:=1 to n do
   begin
     for j:=1 to n do
       begin
         a[i,j]:=10*i+j;
         write(a[i,j]:4);
       end;
     writeln;
   end;
for i:=1 to n do
   begin
     x:=a[i,i]; {простой обмен заданных элементов [i,i]-главная диагональ}
     a[i,i]:=a[i,n-i+1];  {[i,n-i+1] - побочная диагональ}
     a[i,n-i+1]:=x;
   end;
writeln('Rezultat:');
for i:=1 to n do
   begin
     for j:=1 to n do
     write(a[i,j]:4);
     writeln;
   end;
readln
end.

[Stepler]

2.

uses crt;
const n=5;
var a: array [1..n,1..n] of integer;
i,j :integer;
begin
clrscr;
for i:=1 to n do
for j:=1 to n do
a[i][j]:=random(10);
writeln('Do');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i][j],' ');
  writeln;
 end;
for i:=1 to n do
 begin
 a[i][i]:=a[i][i]+a[i][n-i+1];
 a[i][n-i+1]:=a[i][i]-a[i][n-i+1];
 a[i][i]:=a[i][i]-a[i][n-i+1];
 end;
writeln('Posle');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i][j],' ');
  writeln;
 end;
end.

[Plague]

К первой задаче.
Вам же сказанно без использования строк,
а строки это и есть массив.

var n,m,k:longint;
begin
  readln(n);
  m:=n;k:=0;
  while m<>0 do
    begin
      k:=k*10+m mod 10;
      m:=m div 10;    
    end;
  //writeln(k);
  if n=k then writeln('Полиндром')
         else writeln('Не полиндром');
end.

[puporev]

без использования
строковых типов.

Строковый тип это например String, а его я не использовал, хотя с ним проще, прочитал строку сзаду наперед и сравнил с исходной. По существу решения с Вами согласен.

[Serge_Bliznykov]

Сообщение от Plague

а строки это и есть массив.

нет, это не так. Вы не правы.
Хотя решение у Вас безусловно красивее и эффективнее! :-)

[puporev]

а строки это и есть массив.

Согласен, но отсюда не следует что любой массив есть строка.