Question

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

Answer 1

var a: integer;
begin
  write('Введите число: ');
  read(a);
  if (a div 100 > 0) and (a div 100 < 10) then write('Число ', a, ' трехзначное')
                                          else write('Число ', a, ' не трехзначное')
end.