Помогите пожалуйста решить, завтра сдавать... А я не понимаю, что от меня требуется
Задачу нужно написать на паскале
Фермеру необходимо просчитать урожай яблок и прибыль с их продажи. Ферма насчитывает n яблонь, каждая из может принести от 20 до 50 кг. Содержание каждой яблони обходится в k рублей. Наценка на 1 кг составляет g % от себестоимости.
Задачу нужно написать на паскале
Фермеру необходимо просчитать урожай яблок и прибыль с их продажи. Ферма насчитывает n яблонь, каждая из может принести от 20 до 50 кг. Содержание каждой яблони обходится в k рублей. Наценка на 1 кг составляет g % от себестоимости.
More Questions From This User See All
Answers & Comments
n,k,a,b,c,g:integer;
e:real;
Begin
writeln('Количество яблонь: ');
read(n);
writeln('Содержание 1-ой яблони в рублях: ');
read(k);
writeln('Наценка на 1кг в процентах: ');
read(g);
a:=0;
randomize;
for c:=1 to n do
begin
b:=random(20)+30;
a:=a+b
end;
e:=k*g/100*a;
writeln('Урожай составил ',a,' кг яблок.');
writeln('Прибыль с проажи ',a,' кг яблок: ',e,' рублей.');
end.