Опубликовано в категории Информатика, 13.06.2019

Решить задачу по информатике​

Ответ оставил Гость

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.