Question

Программа ПРОВЕРЬТЕ!!
введите ряд чисел,но как только пользователь вводит -1
программа должна сосчитать кол-во четных и нечетных
проверьте почему не работает
Program minodin;
uses crt ;
var a,i,b: integer;
begin
Writeln('введи число');
readln(a);
begin
i:=0;
While (a<-1) and (a>-1) do
Writeln('введи число');
readln(a)
end;
begin
If a mod 2=0 then
i:=i+1
else
b:=b+1;
end;
Writeln(b,' нечетных чисел');
Writeln(i,' четных чисел');
readln;
end.

Answer 1

While (a < -1) and (a > -1) do

Тело этого цикла никогда не будет выполнено даже один раз.
Условие требует, чтобы значение a было ОДНОВРЕМЕННО меньше -1 И БОЛЬШЕ -1.