Программа ПРОВЕРЬТЕ!!
введите ряд чисел,но как только пользователь вводит -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.

Program minodin;uses crt ;var a,i,b: integer;beginWriteln('введи число');readln(a);begini:=0;while (a < -1) and (a > -1) doWriteln('введи число');readln(a)end;begin If a mod 2=0 theni:=i+1else b:=b+1;end;Writeln(b,' нечетных чисел');Writeln(i,' четных чисел');readln;end.

так?

Что - так? Вы задали вопрос "Почему...?", я ответ дал.

Учитесь вопросы формулировать так, чтобы получать всю нужную Вам информацию.