Дано число 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.

ответ:

объяснение:

writeln('введите число');

readln(n);