Составьте программу ,определяющую,является ли целое положительное число трехзначным.Очень...

Question

Составьте программу ,определяющую,является ли целое положительное число трехзначным.Очень срочно ,отмечу как лучщий ответ и поставлю отметку"спасибо"

Answer 1

Var
n:Integer;
Begin
 Read(n);
 if (n>=100) and (n<=999) then Writeln('YES')<br>  else Writeln('NO');
end.

Answer 2

Function if_3(input: integer): boolean; 
begin 
Result:=(input>99) AND (input<1000) </span>
end;