Написать программу в паскале, определяющую является ли число перевертышем в паскаль. p.s перевертыш т.е с двух сторон читается одинаково, например 111

// pascalabc.net 3.3, сборка 1542 от 05.10.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('введите натуральное число: ').tostring;   if n=reversestring(n) then writeln('перевертыш')   else writeln('не перевертыш') end. пример введите натуральное число:   3527253 перевертыш введите натуральное число:   135233 не перевертыш

Pascal: var a: array [1..30] of integer;             i: integer;           p: longint; begin   p: =1;   randomize;     a[1]: =random(21)+50;   for i: =2 to 29 do a[i]: =random(100);   a[30]: =random(21)+50;   for i: =1 to  30 do write (a[i],' ');   writeln;   for i: =1 to  30 do       if (a[i] in [10..99]) and (a[i] mod 2 = 0) and ((a[i] div 10)  in [5..7]) then  p: =p*a[i];   writeln ('proizvedenie: ',p);   readln; end. c++: #include < iostream> #include < ctime> #include < cstdlib> using namespace std; int main() {   int a[30],i;   unsigned long long p = 1;   srand (time(null));   a[0] = rand()%70+50;   for (i =  1; i< 29; i++)       a[i] = rand()%100;   a[29] = rand()%7+50;   for (i = 0; i< 30; i++)   {         cout < < a[i] < < " ";         if ((a[i]/10==5 || a[i]/10==6 || a[i]/10==7)  & & (a[i]> 9 & & a[i]< 100) & & a[i]%2==0)           p*=a[i];     }   cout < < endl;   cout < < "proizvedenie: " < < p < < endl;   return 0; }