Question

Определить, какие из чисел A, B, C, D. принадлежат интервалу (-10, 15).

Answer 1

var

 a, i: integer;

begin

 Writeln('Введите 4 числа');

 for i := 1 to 4 do

 begin

   Readln(a);

   if (a > -10) and (a < 15) then Writeln('Число принадлежит отрезку -10 & 15: ', a);

 end;

end.