Написать программку,которая запрашивает с клавиатуры четырехзначное число и сопоставляет в нём

Написать программку,которая запрашивает с клавиатуры четырехзначное число и сопоставляет в нём первую и заключительную цифры, вторую и третью числа. Если 1-ая цифра одинакова четвёртой, а 3-я 2-ой, то выводит на экран "Палиндорм", а в неприятном случае "не Палиндорм".

Задать свой вопрос
1 ответ
Var
  a:integer;
begin
  write('Введите число ');
  readln(a);
  if (a div 1000 = a mod 10) and ((a div 100)mod 10 =(a div 10)mod 10)then
  writeln('Палиндром')
  else writeln('не Палиндром');
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт