Ввести с клавиатуры пятизначное число и найти, является ли оно палиндромом.

Ввести с клавиатуры пятизначное число и определить, является ли оно палиндромом. Одинаково читается в обоих направлениях (например, 12321 палиндром, 12345 не палиндром).

Задать свой вопрос
Арина Котеленец
Pascal ?
1 ответ
var n:integer;
begin
writeln("Введите пятизначное число :");
ReadLn(n);
if ((n div 10000)=(n mod 10)) and  
    (((n div 1000) mod 10)=((n mod 100) div 10))
           then    
writeln('---Введенное Число ПАЛЕНДРОМ---')
     else  
 writeln('
---Введенное Число не является Палендромом---');
Readln;
end.
Пашок Сокоов
Спасибо!
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт