Question

Составить программу : Ввести с клавиатуры трехзначное число определить является ли оно палиндромом Т.е читается одинаково слева направо и справа налево Помогите пожалуйста ОЧЕНЬ СРОЧНО!!!!!

Answer 1

Ответ:

var a:Integer;

begin

Write('Введите трёхзначное число ');

ReadLn(a);

if a mod 10 = a div 100 then Write('Является') else

Write('Не является')

end.