М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Nasteahdhdjek
Nasteahdhdjek
27.11.2020 05:46 •  Информатика

Среди четырех монет одна фальшивая. она отличается массой, однако неизвестно, легче она или тяжелее. масса настоящей монеты 5 г. как при двух взвешиваний на чашечных весах обнаружить фальшивую монету, если имеется одна гиря массой 5 г? можно ли при этих условиях опознать, легче фальшивая монета или тяжелее? напишите правильное решения этой по действиям

👇
Ответ:
GoYana0000
GoYana0000
27.11.2020
На одну чашу весов поместим 2 монеты, на другую – монету и гирю. Если весы уравновесятся, то фальшивая монета та, что осталась. За второе взвешивание определим, легче она или тяжелее любой из настоящих монет (или гири). Если же весы не уравновесятся, то наверняка можно утверждать, что настоящей является отложенная монета. Допустим, перевесила чаша, на которой находятся две монеты. Сравним эти монеты при втором взвешивании. Если весы уравновесятся, то фальшивая монета легче, и она находится рядом с гирей. Иначе фальшивой окажется более тяжелая из двух сравниваемых монет.
4,6(13 оценок)
Открыть все ответы
Ответ:
katirina19
katirina19
27.11.2020

674

Объяснение:

Минимально возможная сумма цифр числа при заданных условиях - 1, максимальная - 28 (число 1999). Таким образом, достаточно проверить, что сумма цифр очередного числа принадлежит множеству:

[2, 3, 5, 7, 11, 13, 17, 19, 23].

пишем простую прогу которая брутом проверяет суммы цифр числа на совпадение с группой простых чисел и считает совпадения: код на пайтоне

n=0

cont=[2,3,5,7,11,13,17,19,23]

for i in range (1,2001):

   if i//1000+i%1000//100+i%1000%100//10+i%1000%100%10//1 in cont:

       n+=1

print(n)

Пайтон выводит ответ 674

4,7(64 оценок)
Ответ:
PascalABC.NET 3.4.2, сборка 1826 от 07.10.2018Внимание! Если программа не работает, обновите версию!

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;


function IsPalindrom(n: integer): boolean;

begin

 Result := True;

 if n > 10 then

 begin

   var (n1, i) := (n, -1);

   var a := new integer[9];

   while n1 > 0 do

   begin

     i += 1;

     a[i] := n1 mod 10;

     n1 := n1 div 10

   end;

   for var j := 0 to i div 2 do

   begin

     if a[j] <> a[i - j] then

     begin

       Result := False;

       break

     end

   end

 end

end;



begin

 var (i, k) := (3, 1);

 repeat

   if IsPrime(i) and IsPalindrom(i) then k += 1;

   i += 2

 until k >= 101;

 (i - 2).Println

end.


Результат: 94349
4,4(30 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ