Предмет: Информатика,
автор: elnur1976
Ввести с клавиатуры пятизначное число и определить, является ли оно палиндромом. Одинаково читается в обоих направлениях (например, 12321 – палиндром, 12345 – не палиндром).
стасик13:
Pascal ?
Ответы
Автор ответа:
2
var n:integer;
begin
writeln("Введите пятизначное число :");
ReadLn(n);
if ((n div 10000)=(n mod 10)) and
(((n div 1000) mod 10)=((n mod 100) div 10))
then
writeln('---Введенное Число ПАЛЕНДРОМ---')
else
writeln('---Введенное Число не является Палендромом---');
Readln;
end.
begin
writeln("Введите пятизначное число :");
ReadLn(n);
if ((n div 10000)=(n mod 10)) and
(((n div 1000) mod 10)=((n mod 100) div 10))
then
writeln('---Введенное Число ПАЛЕНДРОМ---')
else
writeln('---Введенное Число не является Палендромом---');
Readln;
end.
Спасибо!
Интересные вопросы
Предмет: Геометрия,
автор: evgenijstaheev8
Предмет: Қазақ тiлi,
автор: ksyzdykov302
Предмет: Математика,
автор: arzamascevai34
Предмет: Химия,
автор: kropotovanatala428