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