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

Question

Информатика

Мироха

18 октября, 11: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.