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

Вкоробке лежат 26 брил. из которых 25 искуственные, а1 природный( весит меньше). найдите план действ для нахожд природн брил за три взвеш на чашечн весах без гирь. запишите свои рассуждения используя связку

👇
Ответ:
oleg1960
oleg1960
23.12.2020

Все камни делим на 3 группы: 1 группа- 9 камней, 2 группа- 9 камней,3 группа- 8 камней.

1) Взвешиваем между собой первую и вторую группы камней, если одна из групп, легче, то выбираем ее, так как в ней природный камень, если они весят одинаково, то выбираем третью группу.

2) а)Если при первом взвешивании выбрана первая или вторая группа, то делим ее на 3 группы по три камня и взвешиваем между собой две группы по 3 камня. Если одна из групп легче, то выбираем ее, так как в ней природный камень, если они весят одинаково, то выбираем третью группу.

     б) Если при первом взвешивании выбрана третья группа, то делим ее на 3 группы, где в первой группе 3 камня, во второй группе 3, камня, в третьей группе 3 камня и взвешиваем между собой две группы по 3 камня. Если одна из групп легче, то выбираем ее, так как в ней природный камень, если они весят одинаково, то выбираем третью группу.

3) а) Выбираем 2 любых камня и взвешиваем их, если один из них легче, то природный камень найден. Если они весят одинаково, то оставшийся 3 камень- природный.

     б) Взвешиваем 2 камня и находим природный

4,6(42 оценок)
Открыть все ответы
Ответ:
vitokle
vitokle
23.12.2020
Задача №1

var a:array [1..20] of integer;     
i:integer;
begin 
randomize;   
for i:=1 to 20 do begin   
a[i]:=random(19-(-10)+1)+-10;     
write (a[i],' ');           
end;
end.

Задача №2

var a:array [1..20] of integer; 
i:integer; 
begin 
writeln('Введите числа в интервале [-20;29]'); 
for i:=1 to 10 do read(a[i]); 
for i:=1 to 10 do 
if (a[i]>-29) and (a[i]<20) then write(a[i],' '); 
end.

Задача №3

var a:array [1..20] of integer; 
i,sum:integer; 
begin 
randomize; 
sum:=0; 
for i:=1 to 20 do 
begin 
a[i]:=random(19-(-10)+1)+-10; 
write (a[i],' '); 
if a[i]>0 then sum:=sum+1; 
end; 
writeln('Количество положительных элементов массива = ', sum); 
end.

Задача №4

var a:array [1..20] of integer; 
i:integer; 
begin 
randomize; 
for i:=1 to 20 do 
begin 
a[i]:=random(19-(-10)+1)+-10; 
if a[i]<0 then a[i]:=0; 
write (a[i],' '); 
end; 
end.

Задача №5

var a:array [1..20] of integer; 
i,sum:integer; 
begin 
randomize; 
sum:=0; 
for i:=1 to 20 do 
begin 
a[i]:=random(19-(-10)+1)+-10; 
write (a[i],' '); 
if a[i]>0 then sum:=sum+a[i]; 
end; 
writeln('Сумма положительных элементов массива = ', sum); 
end.
4,8(5 оценок)
Ответ:
Winx1209
Winx1209
23.12.2020
// PascalABC.NET 3.0, сборка 1128
begin
  var a:=ArrRandom(20,-10,19);
  a.Println(','); // 1
  var b:=ReadArrInteger('Введите 10 целых чисел',10); // 2
  Writeln('Количество положительных элементов ',
    a.Where(x->x>0).Count); // 3
  for var i:=0 to 19 do
    if a[i]<0 then a[i]:=0;
  Writeln('Массив А после замены отрицательных'); a.Println(','); //4
  Writeln('Сумма положительных элементов ',
    a.Where(x->x>0).Sum) // 5
end.

Тестовое решение:
14,8,9,-5,6,3,3,-10,-8,18,7,13,2,17,-1,0,4,-3,8,-8
Введите 10 целых чисел -5 0 13 -7 -14 11 8 19 -3 -1
Количество положительных элементов 13
Массив А после замены отрицательных
14,8,9,0,6,3,3,0,0,18,7,13,2,17,0,0,4,0,8,0
Сумма положительных элементов 112
4,5(17 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ