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

Question

Информатика

Гурьян

7 марта, 23:15

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

+2

Ответы (1)

Знаете ответ на вопрос?

Бажен · Answer 1

Если я правильно понял вопрос:

uses crt; Var a:integer; Beginread (a) ;

if (a>99) and (a<1000) then writeln ('трехзначное')

else writeln ('не трехзначное') ; End.