Question

Определить является ли пятизначное число вводимое с клавиатуры палиндромом. Помогите сделать в паскале.

Answer 1

Program d1;
uses crt;
var
a,e,d,s,t,dt: integer;
begin
clrscr;
writeln('BBEDUTE xxxxx 4UCJLO');
readln(a);
e:=a mod 10;
d:=a div 10 mod 10;
s:=a div 100 mod 10;
t:=a div 1000 mod 10;
dt:=a div 10000;
If(e=dt)and(d=t)Then
writeln('DA');
else
writeln('HET');
readln;
end.

Answer 2

Да, конечно! Чтобы определить, является ли пятизначное число палиндромом, можно использовать следующий алгоритм:

1. Считываем пятизначное число с клавиатуры. 2. Разбиваем число на отдельные цифры, например, с помощью операции деления на 10 и нахождения остатка от деления на 10. 3. Сравниваем первую цифру с последней, вторую с предпоследней и т.д., двигаясь с обеих сторон к центру числа. 4. Если все пары цифр совпадают, то число является палиндромом. 5. Если хотя бы одна пара цифр не совпадает, то число не является палиндромом.

Пример кода на языке Паскаль:

program Palindrome;
var
  number, temp, remainder, reversedNumber: integer;
begin
  writeln('Введите пятизначное число:');
  readln(number);
  
  // Сохраняем исходное число во временной переменной
  temp := number;
  
  // Переворачиваем число
  reversedNumber := 0;
  while temp <> 0 do
  begin
    remainder := temp mod 10;
    reversedNumber := reversedNumber * 10 + remainder;
    temp := temp div 10;
  end;
  
  // Сравниваем исходное число с перевернутым
  if number = reversedNumber then
    writeln('Число является палиндромом')
  else
    writeln('Число не является палиндромом');
end.

После запуска программы она будет запрашивать пятизначное число с клавиатуры и выводить сообщение о том, является ли оно палиндромом или нет.