Выяснить, является ли данное трехзначное число палиндромом - Pascal

Узнай цену своей работы

Формулировка задачи:

Дано трехзначное число. Выяснить, является ли оно палиндромом(<<перевертышем>>), то есть таким числом, десятичная запись которого читается слева направо и справа налево. Идея в принципе есть как решать.. Я так понял надо что бы оно проверяло крайние числа.. но как это записать не знаю.. подкиньте идею как это записать?

Решение задачи: «Выяснить, является ли данное трехзначное число палиндромом»

textual
Листинг программы
uses crt;
var n,r,k,M,i:integer;
F:Boolean;
begin
clrscr;
repeat
write ('n=');
readln(n);
until n>0;
M:=n;
 r:=1;
  k:=1;
  f:=false;
while (m div 10) >0 do
begin
M:=m div 10;
R:=r*10;
K:=k+1;
end;
M:=n;
For i:=1 to k div 2 do
begin
if (m div r) <> (m mod 10) then f:=true;
M:=(m mod r) div 10;
R:=r div 100;
end;
if f then writeln (n,'-ne palindrom') else writeln (n,'-palindrom');
readkey;
end.

Объяснение кода листинга программы

Этот код на языке Pascal проверяет, является ли трехзначное число палиндромом. Он использует цикл while для деления числа на 10 до тех пор, пока результат деления не станет больше 0. Затем он проверяет, является ли остаток от деления на 10 равным остатку от деления на 100, и если это так, то число не является палиндромом. Если это не так, то число является палиндромом. В конце он выводит результат на экран.

Оцени полезность:

15   голосов , оценка 4.333 из 5
Похожие ответы