Даны три действительных числа. Вывести те из них, которые принадлежат интервалу (1,3).

Question

Информатика

Кандидий

26 июля, 22:56

Даны три действительных числа. Вывести те из них, которые принадлежат интервалу (1,3).

+1

Ответы (1)

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

Анемподист · Answer 1

Program z2;

var a, b, c:real;

begin

writeln ('Input a, b, c:') ;

readln (a, b, c) ;

writeln ('Числа, удовлетворяющие условию:') ;

if ((a>1) and (a<3)) then

writeln (a) ;

if ((b>1) and (b<3)) then

writeln (b) ;

if ((c>1) and (c<3)) then

writeln (c) ;

end.