Вопрос пользователя:
Определить является заданное число трехзначным. Пожалуйста помогите срочно если не сложно то всю программу полностью.
Илюха отвечает:
var a : integer;
begin
readln(a);
if (a div 10 >0)and(a div 100>0)and(a div 100<10) then writeln('Число трехзначное')
else writeln(‘Число не трехзначное’);
end.