В паскале: среди трёхзначных чисел, найти такие, которые будут палиндромами.

Предыдущий
вопрос Следующий
вопрос

program PalindromeNumbers;
var
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;

end;
end.