Составить и решить задачу на ветвление и цикл
СРОЧНО!!!!!!!!

Var N,otr,pol:real; Begin Read(n); If n=0 writeln(error) else Repeat do Write(n);  If n mod 2=0 then pol:=pol+1 else otr:=otr+1;Read(n); Until n=0; Writeln(otr:,otr);Writeln(otr:,otr);End. 

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