Чтобы обмениваться сообщениями на большом растоянии (писменныси и быстро)
var
x, f : real;
begin
write('введите x=');
readln(x);
if x < 3 then f := ln(abs(2-x))
else if (x >= 3) and (x < 5) then f := x/(x-2)
else f := sqrt(x-4);
writeln('f=', f);
end.
Ответ:
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.