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

Из за того что в некоторых местах нет символа ;  и из за это неработает программа вот например - If a mod 2=0 then ,а надо - If a mod 2=0 then;

Если ответ по предмету Другие предметы отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.