Студенты решили сходить в поход в горы. Они заранее договорились, что сначала каждый человек в отдельности платит за определённые вещи, такие как: еда, проезд, напитки…, а затем, расходы делятся поровну. После похода расходы всех друзей суммируются, и происходит обмен деньгами так, чтобы итоговая стоимость для всех оказалась равной с точностью до одного цента. Напишите программу, которая, основываясь на списке расходов, определяет минимальную сумму денег, которая должна поменять хозяина, для того чтобы уравнять (с точностью до цента) расходы всех студентов.
Решите на python

👇

Открыть все ответы

Ответ:

Бізнесмен22

15.09.2022

Если три нуля значащие, значит число начинается с единицы. Поскольку любое число в развернутой записи есть сумма произведений, каждое из которых представляет собой произведение цифры, находящейся на n-й позиции на основание системы счисления, возведенной в степень n-1, то понятно, что чем больше по величине будут цифры в старших разрядах, тем больше будет само число.
В применении к двоичной системе это означает, что слева должны стоять все единицы, а справа - нули.
Получаем 11000(2)=1х2^4+1x2^3=16+8+=24(10) - тут символ ^ означает возведение в степень.
ответ: 24

4,8(21 оценок)

Ответ:

oksana1410

15.09.2022

// PascalABC.NET 3.0, сборка 1073
const
sb='bcdfgjklmnpqrstvwxz';
s='Computer programming is a process of computer programs creation';
var
i,n:integer;
s1,sn,t:string;
begin
i:=1;
while s[i]<>' ' do Inc(i);
s1:=Copy(s,1,i-1);
n:=Length(s); i:=n;
while s[i]<>' ' do Dec(i);
sn:=Copy(s,i+1,n-i);
t:='';
for i:=1 to Length(s1) do
    if Pos(s1[i],sb)>0 then t:=t+s1[i];
s1:=t;
t:='';
for i:=1 to Length(sn) do
    if Pos(sn[i],sb)>0 then t:=t+sn[i];
sn:=t;
t:='';
for i:=1 to Length(s1) do
    if Pos(s1[i],sn)>0 then
      if Pos(s1[i],t)=0 then t:=t+s1[i];
for i:=1 to Length(t) do Write(t[i],' ');
Writeln
end.

Тестовый прогон:
t r

2. "Нормальное" решение

// PascalABC.NET 3.0, сборка 1073
const
sb='bcdfgjklmnpqrstvwxz';
s='Computer programming is a process of computer programs creation';
begin
var a:=s.ToWords(' ');
a[0].Intersect(a[a.Length-1]).Where(x->Pos(x,sb)>0).Println(',')
end.

Тестовый прогон:
t,r

4,6(25 оценок)

Это интересно:

Финансы-и-бизнес

23.11.2020

Как купить себе частный остров: преимущества и нюансы покупки...

Дом-и-сад

20.12.2022

Как заменить прокладку на двери холодильника...

Образование-и-коммуникации

08.01.2022

Как выглядеть круто в школьной форме...

Кулинария-и-гостеприимство