Студенты решили сходить в поход в горы. Они заранее договорились, что сначала каждый человек в отдельности платит за определённые вещи, такие как: еда, проезд, напитки…, а затем, расходы делятся поровну. После похода расходы всех друзей суммируются, и происходит обмен деньгами так, чтобы итоговая стоимость для всех оказалась равной с точностью до одного цента. Напишите программу, которая, основываясь на списке расходов, определяет минимальную сумму денег, которая должна поменять хозяина, для того чтобы уравнять (с точностью до цента) расходы всех студентов.
Решите на python
var
n:integer;
begin
readln(n);
if(n<0)then write(0)
else write(n+4);
end.
2)
var
a, b: integer;
begin
readln(a, b);
if(a = b) then
write(1)
else
write(0);
end.
3)
var
a, b, c, s: integer;
begin
s := 0;
readln(a, b, c);
if(a >= 0) then s := s + 1;
if(b >= 0) then s := s + 1;
if(c >= 0) then s := s + 1;
write(s);
end.
4)
var
a, b, c, s: integer;
begin
s := 0;
readln(a, b, c);
if(a > 0) then s := s + a;
if(b > 0) then s := s + b;
if(c > 0) then s := s + c;
write(s);
end.
5)
var
a, b, c: integer;
begin
readln(a, b, c);
if (a < b) then swap(a, b);
if (a < c) then swap(a, c);
if (b < c) then swap(b, c);
write(a, ' ', b, ' ', c);
end.
6)
var n, k, s, i: integer;
begin
s := 0;
readln(n, k);
for i := 1 to n.ToString.Length do
if(strtoint(n.ToString[i]) > k) then s := s + strtoint(n.ToString[i]);
write(s);
end.
7)
var n, s, i: integer;
begin
s := 0;
readln(n);
for i := 1 to n do
s := s + i;
write(s);
end.
9)
var n, i: integer;
begin
readln(n);
for i := n downto 1 do
write(i);
end.
12
var
n, i: integer;
s: real;
begin
s := 0;
readln(n);
for i := n downto 1 do
s:=s+(0.1*i);
write(s);
end.
13)
var n, i: integer;
begin
readln(n);
for i := 1 to n do
write(sqr(i), ' ');
end.
14)
var
n, i, c: integer;
begin
i := 1;
c := 0;
readln(n);
while (c <> n) do
begin
if(i mod 3 = 0) then begin write(i, ' ');c := c + 1; end;
i := i + 1;
end;
end.
15)
var
n, i, a: integer;
c: real;
begin
i := 1;
c := 0;
readln(n);
for i := 1 to n do
begin
read(a);
c := c + a;
end;
write(c / n)
end.
16)
var
n, i, a: integer;
begin
i := 1;
while true do
begin
read(a);
if(a = 0) then break;
n := n + 1;
end;
write(n)
end.
Сложим тех, кто записался на макраме, на футбол и в театральный кружок: 14 + 18 + 10 = 42. В этой сумме те, кто записались в 2 кружка, участвуют дважды, те, кто в три кружка - трижды. Чтобы получить нужное число, нужно вычесть число тех, кто записался ровно в 2 кружка, и удвоенное число тех, кто записался в три кружка. Получаем 42 - (3 + 8 + 5) - 2 * 2 = 22.
Если записали хотя бы куда-нибудь 22 человека, то никуда не записались 36 - 22 = 14 человек.
3. Из записавшихся на макраме (18 человек) нужно убрать тех, кто записались еще на 1 кружок (8 человек - еще на футбол, 5 человек - занимаются и театром) и тех, кто записался везде (2 человека). Остаётся 18 - 8 - 5 - 2 = 3 человека, записавшихся только на макраме.
4. Аналогично, 14 - 3 - 8 = 3 человека записались только на футбол.
5. Аналогично, 10 - 3 - 5 = 2 человека выбрали только театральный кружок.
6. По два кружка посещают 3 + 8 + 5 = 16 человек.