Question

Напишите программу, которая определяет, верно ли, что введённое число -– трёхзначное. входные данные входная строка содержит единственное натуральное число. выходные данные если введённое число – трёхзначное, нужно вывести ответ yes, если нет, то вывести ответ no. примеры входные данные 123 выходные данные yes входные данные 1234 выходные данные no на паскале

Answer 1

Var
A:integer;
Begin
Read(A);
if (A>99)and(A<1000) then Write('YES')
else Write('NO')
End.

Answer 2

Program n1;
var a: integer;
begin
readln(a);
if (a>99) and (a<1000) then write('yes')
else write('no');
end.