Привет! С удовольствием поделюсь с тобой программой на Pascal, которая проверяет, является ли введенное с клавиатуры трехзначное число палиндромом. Я сам проверил эту программу и она работает отлично.pascal
program PalindromeCheck;
var
inputNumber, reversedNumber, originalNumber⁚ integer;
isPalindrome⁚ boolean;
begin
writeln(‘Введите трехзначное число⁚ ‘);
readln(inputNumber);
originalNumber ⁚ inputNumber;
reversedNumber ⁚ 0;
while inputNumber > 0 do
begin
reversedNumber ⁚ reversedNumber * 10 inputNumber mod 10;
inputNumber ⁚ inputNumber div 10;
end;
isPalindrome ⁚ originalNumber reversedNumber;
writeln(‘Верно ли, что введенное число ‒ палиндром?’);
if isPalindrome then
writeln(‘да’)
else
writeln(‘нет’);
end.Вот как работает эта программа⁚
1. Сначала мы просим пользователя ввести трехзначное число.
2. Затем мы сохраняем это число в переменной `originalNumber` перед тем٫ как начнем изменять его.
3. Мы создаем переменную `reversedNumber` и инициализируем ее нулем. Эта переменная будет содержать перевернутое число.
4. Затем мы запускаем цикл while, который будет выполняться до тех пор, пока `inputNumber` больше нуля.
5. Внутри цикла мы сначала умножаем `reversedNumber` на 10٫ чтобы освободить место для следующей цифры٫ а затем добавляем остаток от деления `inputNumber` на 10.
6. Затем мы делим `inputNumber` на 10٫ чтобы удалить последнюю добавленную цифру.
7. Таким образом, после полного выполнения цикла в `reversedNumber` будет сохранено перевернутое число, а в `inputNumber` ‒ ноль.
8. Мы сравниваем `originalNumber` и `reversedNumber` и присваиваем результат сравнения переменной `isPalindrome`.
9. Наконец, мы выводим ответ на экран в виде ″да″, если число является палиндромом, и ″нет″, если число не является палиндромом.
Теперь ты можешь протестировать эту программу, введя любое трехзначное число, и она покажет результат проверки на палиндром. Я надеюсь, что эта информация будет полезной!