60

1. Дано трехзначное число. Выяснить, является ли оно палиндромом ( «перевертышем»),…

20 апреля 2023

1. Дано трехзначное число. Выяснить, является ли оно палиндромом ( «перевертышем»), то есть таким числом, десятичная запись которого читается одинаковослева направо и справа налево

категория: информатика



99

program xxx; var n, c, d, e, k: integer; begin wtite ('введите 3-х значное число N='); readln (n); c: =n div 100; d: =(n div 10) mod 10; e: =n mod 10; k: =100*e+10*d+c; if n=k then write ('палиндром') else write ('не палиндром') end.

Знаете ответ?


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