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

Pelyovin1980 Pelyovin1980    2   28.03.2020 06:07    22

Ответы
kris411 kris411  12.10.2020 07:52

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика