13 (план производства). пищевкусовая фабрика может выпускать фруктовый сок с разливом в стеклянную, - id1004264020210328 от Екатерина31Теребун 28.03.2021 08:49

Question

Информатика: 13 (план производства). пищевкусовая фабрика может выпускать фруктовый сок с разливом в стеклянную, металлическую и полиэтиленовую тару. производительность линии по выпуску сока составляет: в стеклянной таре не более 10 т, в жестяной таре – не более 8 т, в полиэтиленовой таре – не более 5 т. известно, что себестоимость производства 1 т сока в стеклянной упаковке равна 16000 руб., в жестяной - 1 руб., в полиэтиленовой – 16000 руб. отпускная цена не зависит от тары и равна 4 руб. за 1 т. определить

Екатерина31Теребун · Accepted Answer

Var n,m,osn: integer;
function nmbdec(var n,osn: integer): integer;
var nmb,l,s,k: integer;
begin
nmb:=0; s:=0;
k:=n; l:=1;
while k>0 do
begin
s:=k mod 10;
k:=k div 10;
nmb:=nmb+l*s;
l:=l*osn;
end;
Result:=nmb;
end;
{ конец функции}
begin
write('число: ');
readln(n);
write('квадрат какого числа: ');
readln(m);
osn:=10;
while osn>=2 do
begin
osn:=osn-1;
if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then
begin
writeln('основание системы = ',osn);
break;
end;
end;
end.

MOGZ ответил