В паскале: среди трёхзначных чисел, найти такие, которые будут палиндромами.
В паскале: среди трёхзначных чисел, найти такие, которые будут палиндромами.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program PalindromeNumbers;
if reverseNum = num thenvar
num, reverseNum, lastDigit: integer;
begin
for num := 100 to 999 do
begin
reverseNum := 0;
lastDigit := num mod 10;
reverseNum := reverseNum 10 + lastDigit;
num := num div 10;
lastDigit := num mod 10;
reverseNum := reverseNum 10 + lastDigit;
num := num div 10;
reverseNum := reverseNum * 10 + num;
writeln(num);
end;
end.