Question

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

Answer 1

if ((a div 1000) < 10) and ((a div 1000) > 0) then writeln('Число трехзначное')

Главная часть, надеюсь begin, end и readln(a) напишите сами.

div - дает число с отброшенным остатком. 
Можете использовать mod - он дает чисто остаток без числа

Answer 2

спасибо отлично !!!!!