Program ok; var a,i,n,proiz: integer; begin readln(n); proiz: =1; for i: =1 to n do begin read(a); if(a< 0) then proiz: =proiz*a; end; write(proiz); end.
Спасибо
Ответ дал: Гость
Пусть товара было а, тогда продано было 0,28а утром днем 0,56а а всего 0,84а кгсоставим уравнение 0,84а+32=а 0,16а=32 а=200 кг. 200*0,84=168 кг
Популярные вопросы