Ниже напечатаны десять высказываний. сколько верных высказываний? 1. число неверных выражений - 1 2. число неверных выражений - 2 3. число неверных выражений - 3 4. число неверных выражений - 4 5. число неверных выражений - 5 6. число неверных выражений - 6 7. число неверных выражений - 7 8. число неверных выражений - 8 9. число неверных выражений - 9 10. число неверных выражений - 10

Во-первых, максимальное количество верных высказываний - 1, так как они все друг-другу противоречат (каждое указывает на разное количество неверных выражений). Остаются высказывания, которые идут под номером 9 и 10 (они не допускают больше чем 1 верное высказывание). 10 выражение - нелогично, так как говорит о самом себе. 9 логично, так как "нейтрализует" все неподходящие к нему высказывания, и не противоречит само себе.

Поделить монеты таким образом: 

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.