Question

Составте программу которая запрашивает целое число x и опредиляет является ли это число двухзначным

Answer 1

var

 x: Integer;

begin  

  Write ('Введите целое число:');

   Read (x);

   if (x >= 10) and (x <= 99) then

     Writeln ('Это двузначное число')

   else

     Writeln ('Это НЕ двузначное число');

   Readln;

end;