46

Определить является заданное число трехзначным. Пожалуйста помогите срочно если…

19 апреля 2023

Определить является заданное число трехзначным. Пожалуйста помогите срочно если не сложно то всю программуполностью.

категория: информатика

38

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.

Знаете ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...