Журналист
Oghmagas 23 октября 2019 в 11:14

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

Program prog;
Uses crt;

var a: integer;

begin
clrscr;


Write(Введите трехзначное число: );
readln(a);

if (abs(a)gt;99) and (abs(a)lt;1000) then
   if ((a mod 10)=(a div 100)) and (agt;0) then
   writeln(Перевертыш)
   else
   writeln(Не перевертыш)
else
    writeln(Неверное число);
end.
Пусть число  будет а1, а2, а3.
число а2  -нас не интересует,  т.к. оно на месте справа - налево и наоборот.
Сл-но исследует а1 и а3
 программа 
берем а1 
а1=а3 -  если да ,  то число подходит - 
если нет ,  число не  подходит - переходим к следующему.
Вот и всё.
запишите этот алгоритм в предлагаемом Вам языке.
Успехов

Компьютеры и вычисления
Для комментирования необходимо зарегистрироваться на сайте