Question

С клавиатуры вводится натуральное число (процедура). Оно передаётся в логическую функцию. Функция возвращает в программу TRUE, если число является палиндромом и FALSE в противоположном случае. Это паскаль даю 95 балов

Answer 1

Ответ:

var n:integer;

procedure v;

begin

read(n)

end;

function p(n: integer):boolean;

var a,b: integer;

begin

a:=n;

b:=0;

while a>0 do

begin

b:=b*10+a mod 10;

a:=a div 10

end;

p:=n=b

end;

begin

v;

write(p(n))

end.

Answer 2

Вот пример паскаль-программы, которая считывает натуральное число с клавиатуры и затем вызывает логическую функцию, чтобы проверить, является ли оно палиндромом. Если число является палиндромом, программа возвращает TRUE, в противном случае - FALSE.

pascalCopy code
program CheckPalindrome;

function IsPalindrome(num: Integer): Boolean;
var
  original, reversed, digit: Integer;
begin
  original := num;
  reversed := 0;

  while num > 0 do
  begin
    digit := num mod 10;
    reversed := reversed * 10 + digit;
    num := num div 10;
  end;

  IsPalindrome := original = reversed;
end;

var
  number: Integer;

begin
  Write('Введите натуральное число: ');
  Readln(number);

  if IsPalindrome(number) then
    Writeln('TRUE')
  else
    Writeln('FALSE');
end.

Эта программа сначала считывает натуральное число с клавиатуры, затем вызывает функцию IsPalindrome, которая проверяет, является ли число палиндромом, и выводит TRUE или FALSE в зависимости от результата проверки.