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

Question

Информатика

Венедикта

27 июля, 03:56

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

+4

Ответы (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.