Из 1000 монет есть одна фальшивая монета.С в помощью весов мы за 6 взешеваний должны найти эту монету.Помагите пожалуйста

Знания

Информатика

1 ответ:

olsd123 [659]3 года назад

0 0

Делим 1000 монет на 4 кучки по 250 монет. В одной из этих кучек есть фальшивая монета(она либо легче либо тяжелее обычной монеты)

ложим на весы две кучки по 250 монет. Если вес у них равен, то среди них нет фальшивой монеты. Ложим две другие кучки. Тот вес, который отличается от прошлого взвешивания говорит о том, что в кучке есть фальшивая монета(это мы определяем на втором взвешивании).

Мы определили кучку с фальшивой монетой. Дальше разбиваем кучу еще раз и повторяем операцию

Изначально кучу можно разбить по разному, например, на 10 кучек по 100 монет

Читайте также

A:=30 b:=6 a:=a\2*b if a>b then c:=a-3*b else c:=a+3*b

Галина15071989

Ответ:
a==90
b==6
c==72

0 0

1 год назад

Помогите пожалуйста! Как на языке Паскаль записать не кратность.Например, икс не кратно 7. Обязательно объясните почему именно т

Мадина чегем

Смотри.

икс не кратно 7 записывается так:

x mod 7≠0

пример:

If (x mod 7≠0) then begin

mod это деление нацело, то есть

14 mod 7=0 - 14 делится нацело на 7.

только вместо знака ≠ надо писать знаки

$< >$

если не сработает, попробуй

$> <$

0 0

3 года назад

Прочитать ещё 2 ответа

из чего состоит ромашка из листков стебельков лепестков а ещё из чего?

Дарьянна [7]

Корня , побега , середины

0 0

4 года назад

Разработать блок схему и программу нахождения произведения натурального ряда чисел до числа n включительно

Sisilisko [7]

Блок-схема - в прилагаемом файле.
Программа:
var n,i:integer; p:real;
begin
write('n = '); readln(n);
p:=1;
for i:=1 to n do p:=p*i;
writeln('p = ',p);
end.

Пример:
n = 10
p = 3628800

0 0

4 года назад

Прочитать ещё 2 ответа

1)Заменить в данной строке все малые буквы латинского алфавита одноименными большими.2)Подсчитать наибольшее количество идущих п

Fanis08 [31]

1)
var a, b, c, i, n, j :integer;
 s :string;
begin
 read (s);
 for i:=1 to length(s) do
 begin
 if (ord (s[i])>=97) and (ord (s[i])<=122) then write (char(ord (s[i])-32))
 else write (s[i]);
 end;
end.
2)
var a, b, c, i, n, j :integer;
 s :string;
 p :array[1..10000] of integer;
begin
 read (s);
 if s[1]=' ' then
 begin
 j:=j+1;
 p[j]:=1;
 end;
 for i:=2 to length(s) do
 if (s[i]=' ') and (s[i-1]<>' ') then
 begin
 j:=j+1;
 p[j]:=i;
 end;
 for i:=1 to j do
 begin
 a:=p[i];
 p[i]:=0;
 while s[a]=' ' do
 begin
 inc (p[i]);
 a:=a+1;
 end;
 end;
 b:=p[1];
 for i:=1 to j do
 if p[i]>b then b:=p[i];
 write (b);
end.
3)
var a, b, c, i, n, j :integer;
 s :string;
 p :array[1..10000] of integer;
begin
 read (s);
 i:=1;
 write (s[i]);
 while s[i]<>':' do
 begin
 inc (i);
 write (s[i]);
 end;
end.
4)
var a, b, c, i, n, j :integer;
 s :string;
 p :array[1..10000] of integer;
begin
 read (s);
 i:=1;
 while s[i]<>':' do
 inc (i);
 i:=i+1;
 while (s[i]<>':') and (i<=length(s)) do
 begin
 write (s[i]);
 inc (i);
 end;
end.

0 0

4 года назад