ДАНО ЧИСЛО N ПРОВЕРИТЬ ЯВЛЯЕТСЯ ЛИ ОНО НЕЧЕТНЫМ ТРЕХЗНАЧНЫМ ЧИСЛОМ
PASCAL

Ответ:

program TestN;

var

 n: Integer;

begin

 Write ('Введите N: ');

 ReadLn (n);

 if (n >= 100) and (n <= 999) and (n mod 2 <> 0) then

   WriteLn (N, ' является нечетным трехзначным числом.')

 else

   WriteLn (N, ' не является нечетным трехзначным числом.');

 ReadLn;

end.