// PascalABC.NET 3.3, сборка 1600 от 23.12.2017 // Внимание! Если программа не работает, обновите версию!
begin var x:=ReadInteger('Введите трехзначное число Х:'); if x div 100 = x mod 10 then Writeln('Цифры совпадают') else Writeln('Цифры не совпадают') end.
Примеры Введите трехзначное число Х: 452 Цифры не совпадают
Шифр Цезаря, самое тривиальное что приходит в голову. Для несведущих, замена прямого текста согласно таблице шифрования, которая формируется следующим образом: первому символу алфавита соответствует k+1-ый символ этого же алфавита, второму - k+2-ый, третьему - k+3-ый и так далее. К самому заданию. Ъуйшябъшцйф ёш здшёэкл Бджжгш аъюаьёжв йбйкэеу Ыишдыши. В данном шифре алфавит смещён на 25 позиций. Расшифровка: Высаживаюсь на планету Илоока звёздной системы Гралгар. (комментарий автора Космическим Рейнджерам за счастливое детство)
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadInteger('Введите трехзначное число Х:');
if x div 100 = x mod 10 then Writeln('Цифры совпадают')
else Writeln('Цифры не совпадают')
end.
Примеры
Введите трехзначное число Х: 452
Цифры не совпадают
Введите трехзначное число Х: 242
Цифры совпадают