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

Question

Информатика

Горгоний

2 ноября, 02:45

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

+1

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