Помогите написать программу на турбо паскале (((

Вывести на экран сообщение, принадлежат ли оба действительных числа X и Y сегменту [0; 20]

Question

Информатика

Виталинка

26 апреля, 11:45

Помогите написать программу на турбо паскале (((

Вывести на экран сообщение, принадлежат ли оба действительных числа X и Y сегменту [0; 20]

+1

Ответы (1)

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

Талюша · Answer 1

Var

x, y: integer;

begin

//вводим x и y

readln (x) ;

readln (y) ;

//проверяем x

if (x > = 0) and (x<=20) then

writeln ('X принадлежит')

else

writeln ('X не принадлежит') ;

//проверяем y

if (y > = 0) and (y<=20) then

writeln ('Y принадлежит')

else

writeln ('Y не принадлежит') ;

end.

Помогите написать программу на турбо паскале (((Вывести на экран сообщение, принадлежат ли оба действительных числа X и Y сегменту [0; 20]

Помогите написать программу на турбо паскале (((

Вывести на экран сообщение, принадлежат ли оба действительных числа X и Y сегменту [0; 20]