составьте программу, которая определяет, принадлежит ли введённое целое число x интервалу (10, 20), и выводит на экран соответствующее сообщение: "Принадлежит" либо "Не принадлежит"

Question

Линуха

10 июля, 09:27

+2

Ответы (1)

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

Ольда · Answer 1

program zadacha;

var

a:integer;

begin

read (a) ;

if (a>=10) and (a<=20) then

write ('Принадлежит')

else

write ('Не принадлежит')

end.