vara,mn:integer;beginmn:=1;while a<>-1 do begin readln(a); if a mod 2 =1 then mn:=mn*a;end;writeln(mn);end.
Оценить ответ
Не нравится ответ?
Если ответ на твой вопрос отсутствует, или он не полный, то рекомендуем найти информацию через поиск на сайте.
Найти другие ответыНовые вопросы и ответы