Определить, какова должна быть сторона вырезаемого квадрата - Pascal

Формулировка задачи:

Из квадратного листа картона вырезается коробка. Определить, какова должна быть сторона вырезаемого квадрата, чтобы коробка имела наибольшую вместимость.


textual

Код к задаче: «Определить, какова должна быть сторона вырезаемого квадрата - Pascal»

var
max,a,b,v,c:longint;
begin
readln(a);
max:=0;
c:=0;
for b:=1 to a div 2 do
begin
v:=a*a*b-4*a*b*b+4*b*b*b;
if v>max then
begin
max:=v;
c:=b;
end;
end;
writeln(c);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 3.800 из 5

Источник