Question

У деда мороза X яблок количество их трехзначное число. Определите, совпадает ли первая и последняя цифра в этом числе? Задача На Pascale Надо срочно решить!

Answer 1

// 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
Цифры не совпадают

Введите трехзначное число Х: 242
Цифры совпадают

Answer 2

Program n1;
var x : integer;
begin
readln(x);
if(x mod 10=x div 100) then write('совпадает') else write('не совпадает');
end.