Поделить монеты таким образом:
1-ое взвешивание: 27:3=9 По 9 монет в каждой чаше. Если они уравновесят друг друга, то оставшаяся горка из 9 монет содержит фальшивку. В противном случае, определяем какая чаша монет тяжелее и убираем остальные.
2-ое взвешивание, аналогично, делим пополам 9:3=3 По (3-3), если уровновесят друг друга, то оставшаяся кучка содержит фальщивую монету, а если нет,то определям какая чаша тяжелее
3-е взвешевание, опять же аналогично, теперь легко в чашах по (1-1) и остается одна монета, если чаши уровновесятся, то оставшаяся-фальшивая
Простите чуть-чуть стормозила)
var n,m,i,s1,s2:integer;
p1,p2,p:real;
a,b:array[1..10] of integer;
begin
write('n=');read(n);
write('m=');read(m);writeln;
for i:=1 to n do begin
write('a[',i,']= ');
readln(a[i]);
end;
for i:=1 to m do begin
write('b[',i,']= ');
readln(b[i]);
end;writeln;
s1:=0;
for i:=1 to n do s1:=s1+a[i];
p1:=s1/n; p1:=int(p1);
writeln('Srednee arifmeticheskoe massiva A=',p1);
s2:=0;
for i:=1 to m do
s2:=s2+b[i];
p2:=s2/m;p2:=int(p2);
writeln('Srednee arifmeticheskoe massiva B=',p2);
p:=p1+p2;
if p1=p2 then write('A=B') else begin
if p1>p2 then write('A>B') else write('A<B');
end;
end.
i,n: integer;
procedure IN1(var a,b:real;n:integer;var y:real);
var
p:real;
i:integer;
begin
y:=1;
for i:=1 to n do
begin
p:=exp(b*ln(a));
y:=p*y;
end;
end;
procedure IN2(var a, b:real; n:integer; var y1:real);
var
p:real;
i:integer;
begin
y1:=0;
for i:=1 to n do
begin
p:=exp(b*ln(a));
y1:=y1+p;
end;
end;
begin
write(' Введите a, b,n');
readln(a,b,n);
IN1(a,b,n,y2);
writeln('p1 ',y2:10:2);
writeln(' Введите c, b,m');
read(a,b,n);
IN2(a,b,n,y3);
writeln('s ',y3:10:2);
write(' Введите e, f,L');
readln(a,b,n);
IN1(a,b,n,y5);
writeln('p2 ',y5:10:2);
y6:=(y2+y3)/y5;
writeln(y6:8:3); end.