1. Дано пятизначное число. Выяснить является ли оно палиндромом (например, 12321, 56465). Паскаль

Question

Информатика

Евмен

19 июня, 01:00

1. Дано пятизначное число. Выяснить является ли оно палиндромом (например, 12321, 56465). Паскаль

+3

Ответы (1)

Знаете ответ на вопрос?

Амос · Answer 1

Var A:integer;

Begin

WriteLn ('Введите пятизначное число') ;

ReadLn (A) ;

if (A div 10000 = A mod 10) and ((A div 1000) mod 10 = (A div 10) mod 10) then Write ('Число является полиндромом')

else Write ('Число не является полиндромом')

End.