Ввести 4 числа, подсчитать количество чисел принадлежащих интервалу [-1; 5).

Question

Информатика

Ромаха

6 октября, 23:20

Ввести 4 числа, подсчитать количество чисел принадлежащих интервалу [-1; 5).

+2

Ответы (1)

Знаешь ответ?

Корнелий · Answer 1

Var i, prin, a: Integer;

begin

prin:=0;

for i:=1 to 4 do

begin

WriteLn ('введите число');

readln (a);

if (a>=-1) and (a<5) then inc (prin);

end;

WriteLn ();

WriteLn ('кол-во чисел принадлеж: ', prin);

end.