Question

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

Answer 1

Var A:integer;
Begin
WriteLn('Введи число');
Read(A);
if (A>99)and(A<1000) then Write('Число трёхзначное')
else Write('Число НЕ трёхзначное')
End.