Дано трехзначное число. Напишите программу, которая определяет: является ли число "перевертышем", т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево. 123 - нет 121 - да 222 -да

пусть число  будет а1, а2, а3.число а2  -нас не интересует,  т.к. оно на месте справа - налево и наоборот.Сл-но исследует а1 и а3 программа берем а1 а1=а3 -  если да ,  то число подходит - если нет ,  число не  подходит - переходим к следующему.Вот и всё.запишите этот алгоритм в предлагаемом Вам языке.Успехов

Program prog;Uses crt;var a: integer;beginclrscr;Write('Введите трехзначное число: ');readln(a);if (abs(a)>99) and (abs(a)<1000) then   if ((a mod 10)=(a div 100)) and (a>0) then   writeln('Перевертыш')   else   writeln('Не перевертыш')else    writeln('Неверное число');end.