Question

Паскаль, все в одной программе: дано число: 1) проверить является ли оно трехзначным 2)является ли оно нечетным 3)равны ли его 1 и последняя цифра если число не трехзначное, 2 и 3 пункт не должны срабатывать.

Answer 1

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  if Abs(n).Between(100,999) then begin
    Writeln('Число трехзначное');
    if n.IsOdd then Writeln('Число нечетное')
    else Writeln('Число четное');
    if n div 100 = n mod 10 then Writeln('Его первая и последняя цифры равны')
    else Writeln('Его первая и последняя цифры не равны')
    end
  else Writeln('Число не трехзначное')
end.

Примеры
n= 452
Число трехзначное
Число четное
Его первая и последняя цифры не равны

n= 313
Число трехзначное
Число нечетное
Его первая и последняя цифры равны

n= 18
Число не трехзначное

Answer 2

Program name;Var a : integer;begin  read(a);  if (a div 100 > 0) and (a div 1000 = 0) then    if (a mod 2 = 0) then      if a div 100 = a mod 10 then        write('OK');end.