Выяснить, является ли данное трехзначное число палиндромом - 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, и если это так, то число не является палиндромом. Если это не так, то число является палиндромом. В конце он выводит результат на экран.