Автор - bibik12345 6 лет назад

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

Ответ

Автор - Oxmieeee4on

var

a,mn:integer;

begin

mn:=1;

while a<>-1 do begin

readln(a);

if a mod 2 =1 then

mn:=mn*a;

end;

writeln(mn);

end.

Предыдущий вопрос Следующий вопрос

Ответы и объяснения

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.

© 2026 Все права защищены Политика конфиденциальности Контакты