В первом мешке 2 в степени 6, так как первое взвешивание было по 32 монеты с каждой стороны, 5-ое взвешивание по 16 монет, и так далее пока на 6-ом взвешивании осталось всего по 1 монете с каждой стороны, и та которая весит не так как все - фальшивая, всего в первом мешке 64 монеты, во втором мешке всего 16
Var x,a,s:real; i,n:integer;
begin
write('x = '); readln(x);
write('n = '); readln(n);
s:=0;
a:=-1;
for i:=1 to n do
begin
a:=-a*x;
s:=s+a/i;
end;
writeln('s = ',s);
end.
Пример:
x = 0.5
n = 4
s = 0.401041666666667
Var p real;
begin
readln(p);
if (p>40) and (x<60) then writeln ('Первая категория');
if (p>61) and (x<75) then writeln ('Вторая категория');
if (p>76) and (x<100) then writeln ('Третья категория');
readln;
end,