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

Вопрос школьника по предмету Информатика

Напишите программу, которая определяет, верно ли, что введённое число -– трёхзначное.

Входные данные
Входная строка содержит единственное натуральное число.

Выходные данные
Если введённое число – трёхзначное, нужно вывести ответ YES, если нет, то вывести ответ NO.

Примеры
входные данные
123
выходные данные
YES
входные данные
1234
выходные данные
NO

На паскале

Ответ учителя по предмету Информатика

Var

A:integer;

Begin

Read(A);

if (A>99)and(A<1000) then Write(‘YES’)

else Write(‘NO’)

End.