У предпринимателя N ящиков, в каждом из которых по B кг товара. Определить, какой штраф он оплатит комитету по защите прав потребителей, если он продает товар по C гривен за килограмм и при этом обважывает покупателей на G грамм при взвешивании каждого килограмма, а сумма штрафа равна двадцатикратному размеру прибыли, полученной за счет обвеса покупателей. Составить программу для определения результата задачи, предусмотрев невозможность обвеса покупателя на больше, чем он покупает — Pascal(Паскаль)

program zada4a1;
var o,B,n,c,g:real; { о-переменая со штрафом}
begin
write ('N= '); readln (n);
write ('B= '); readln (b);
write ('C= '); readln (c);
write ('G= '); readln (g);
o:=((n*b*g)/1000)*c*12; 
{
сначало вычисляем на сколько грамм он обманул (n*b*g) потом переводим в киллограммы (/1000) потом узнаём сколько он срубил бала из за того что обманул и умножаем на 12ти кратный штраф.....
}
writeln ('shtraf = ',o:8:2);
readln;
end.

Похожие записи/страницы:

Leave a Comment

− 1 = 1