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

Question

Информатика

Таися

8 февраля, 11:10

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

+1

Ответы (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.