Сколько получится пакетов по 3кг и по 5кг, если масса тех и других оказалась одинаковой. - Pascal ABC

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

1. Товар расфасовали в 24 пакета по 3кг и по 5кг. Сколько получится пакетов по 3кг и по 5кг, если масса тех и других оказалась одинаковой. 2. Радиус апельсина 40мм при какой толщине корки объем мякоти станет равен(меньше) объема корки. Надо использовать цикл for to do. Заранее спасибо! Огромное!


textual

Код к задаче: «Сколько получится пакетов по 3кг и по 5кг, если масса тех и других оказалась одинаковой. - Pascal ABC»

var t:integer;
    v1,v2:real;
begin
writeln(' ');
for t:=1 to 40 do
 begin
  v1:=pi*sqr(40-t);
  v2:=pi*1600-pi*sqr(40-t);
  if v1<=v2 then
   begin
    writeln('Толщина корки=',t,'  объем мякоти=',v1:0:2,'  объем корки=',v2:0:2);
    break;
   end;
 end;
end.
Эта работа вам не подошла?

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


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

9   голосов, оценка 4.111 из 5

Источник
Похожие ответы