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

Решение задачи:Код написан в программе PascalABC.NET.var chislo: integer;os: real;beginwrite(\'Введите целое положительное число число: \');readln(chislo);os:=chislo/1000;//Делим введенное число на 1000.//Анализируем полученное значение с помощью условного оператора «if…then…else».if (os>=1) or (os<0.1) then writeln(\'Ответ: Данное число не является трехзначным.\')else writeln(\'Ответ: Данное число является трехзначным.\');end.