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

Question

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

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);<br>end;
WriteLn();
WriteLn('кол-во чисел принадлеж: ',prin);
end.

Comments

вставь в ифе <=5

---

плменяй 5 на 6