Є27 монет одна фальшива ,легша за справжню! як за 3 виваження знайти фальшиву монету? ? и сделать алгоритм

👇

Ответ:

bogdanb13

02.06.2020

Разделим монеты на 3 кучки по 9 монет. Положим на чаши весов первую и вторую кучки; по результату этого взвешивания мы точно узнаем, в какой из кучек находится фальшивка (если весы покажут равенство, то она - в третьей кучке). Теперь, аналогично, разделим выбранную кучку на три части по три монеты, положим на весы две из этих частей и определим, в какой из частей находится фальшивая монета. Наконец, остается из трех монет определить более тяжелую: кладем на чаши весов по 1 монете - фальшивкой является более тяжелая; если же на весах равенство, то фальшивой является третья монета из части.

с алгоритмом сложнее)))

4,7(94 оценок)

Открыть все ответы

Ответ:

Krisitnka

02.06.2020

о для подальшого успішного навчання і розвитку.

Стратегія розвитку освіти в Україні відповідно до національної

програми “Освіта” передбачає використання світового досвіду для

створення системи освіти, яка б відповідала стандартам ХХІ ст. До

таких наукових розробок належить система розвивального навчання,

що є прообразом принципово нової системи освіти. Його основна

мета – розвиток здібностей дитини, на відміну від “навчання”, де

відбувається механічне засвоєння знань.

Розвивальна мета реалізується на всіх уроках в початкових

класах. Якщо учень залишається звичайним виконавцем і йому не

вдається відчути задоволення від творчості, то сформувати стійкі

пізнавальні інтереси не можливо. Розвивальні можливості уроку

мають такі важливі напрями роботи:

1) розвиток процесів сприймання;

2) оволодіння загально-навчальних умінь і навичок;

3) нагромадження індивідуального досвіду пошукової

діяльності;

4) розвиток уяви, уваги.

Розвиваючи пізнавальні здібності, розвиваючи мислення,

Объяснение:

4,6(21 оценок)

Ответ:

MrDackes

02.06.2020

1. Вот так это пишется с функцией

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
function IsPrime(n:integer):boolean;
begin
if n<4 then Result:=True
else begin
    var found:= (n mod 2 = 0);
    var p:=3;
    while (not found) and (sqr(p)<=n) do
      begin
      found:=(n mod p = 0);
      p+=2
      end;
    Result:=not found
    end
end;

begin
Writeln('k=',ArrRandom(ReadInteger('n='),1,999).Println.
    Where(x->IsPrime(x)).Count)
end.

Тестовое решение:
n= 10
401 828 780 444 694 965 23 341 673 875
k=3

2. А вот так это пишется с процедурой

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
procedure IsPrime(n:integer; var res:boolean);
begin
if n<4 then res:=True
else begin
    var found:= (n mod 2 = 0);
    var p:=3;
    while (not found) and (sqr(p)<=n) do
      begin
      found:=(n mod p = 0);
      p+=2
      end;
    res:=not found
    end
end;

begin
var a:=ArrRandom(ReadInteger('n='),1,999); a.Println;
var k:=0;
var prime:boolean;
foreach var e in a do begin
    IsPrime(e,prime);
    if Prime then Inc(k)
    end;
Writeln('k=',k)
end.

Тестовое решение:
n= 12
199 43 71 365 417 904 170 212 694 103 161 689
k=4

4,8(69 оценок)

Это интересно:

Финансы-и-бизнес

05.11.2020

Как выбрать нотариуса для распределения наследуемого имущества...

Хобби-и-рукоделие

19.02.2020

Как начать бизнес по производству самодельного мыла...

02.12.2021

Как распознавать СДВГ у взрослых: симптомы и диагностика...

28.09.2020

Как медитировать, если вы подросток...