Kaulnasmy
6 год назад
1. Дано пятизначное число. Выяснить является ли оно палиндромом (например,12321, 56465). Паскаль
ОТВЕТЫ
Антон
Oct 24, 2020
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.
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.
210
Смежные вопросы:
