1. Дано пятизначное число. Выяснить является ли оно палиндромом (например, 12321, 56465). Паскаль
1. Дано пятизначное число. Выяснить является ли оно палиндромом (например, 12321, 56465). Паскаль
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы