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

ВСЕГО 2 ВО Есть две коробки. В каждую положили по 2 чёрных шарика и 1 белый. Из каждой коробки наугад берут по одному шарику. Шарик из 1-ой коробки оказался белым, а со второй – чёрным. Укажите истинное утверждение:
А) действие с 1-ой коробкой дало больше информации, чем со второй;
Б) действие со второй коробкой дало больше информации, чем с 1-ой;
В) действия с двумя коробками дали одинаковое количество информации.

7. Свойство алгоритма обеспечения решения не одной задачи, а целого класса задач этого типа, называется:
А) понятность; Б) определенность; В) дискретность; Г) массовость.

👇
Ответ:
Kykyshonochek1305
Kykyshonochek1305
01.04.2020

1.А (Думаю потому что есть только 1 белый шар и если мы его вытаскиваем,то понимаем,что остаётся 2 черных.Если мы вытаскиваем черный шар,то неизвестно какой следущий (Чер или бел).

2.В (не точно, единственное слово которое помню из курса за 8 класс.)

4,8(81 оценок)
Открыть все ответы
Ответ:
metin2005
metin2005
01.04.2020
Var
  d: integer;
  i, k, n: longint;
  flag: boolean;

begin
  Write('Введите верхнюю границу для счета: '); Readln(k);
  for i := 1 to k do
  begin
    n := i;
    repeat
      d := n mod 10;
      if d > 0 then flag := ((i mod d) <> 0) else flag := true;
      if (not flag) then n := (n div 10)
    until (flag or (n = 0));
    if n = 0 then Write(i, ' ')
  end;
  Writeln
end.

Тестовое решение:
Введите верхнюю границу для счета: 1237
1 2 3 4 5 6 7 8 9 11 12 15 22 24 33 36 44 48 55 66 77 88 99 111 112 115 122 124 126 128 132 135 144 155 162 168 175 184 212 216 222 224 244 248 264 288 312 315 324 333 336 366 384 396 412 424 432 444 448 488 515 555 612 624 636 648 666 672 728 735 777 784 816 824 848 864 888 936 999 1111 1112 1113 1115 1116 1122 1124 1128 1131 1144 1155 1164 1176 1184 1197 1212 1222 1224 1236
4,5(32 оценок)
Ответ:
Радость2129
Радость2129
01.04.2020
Procedure Four(n:integer; var a:a_type); 
{Процедура построения квадрата при n двойной четности: n=4,8,12,16...} 
PascalВыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 Var i,j,k:integer; p,l:integer; i1,j1,x,y:integer; Begin l:=1; p:=n*n; for i:=1 to n do for j:=1 to n do begin a[i,j]:=l; inc(l) {l:=l+1} end; i:=2; while i<=n-2 do begin if i mod 4=0 then j:=4 else j:=2; while j<=n-2 do begin for i1:=0 to 1 do for j1:=0 to 1 do begin y:=i+i1; x:=j+j1; a[y,x]:=p-a[y,x]+1; end; j:=j+4; end; i:=i+2 end; k:=4; while k<=n-4 do begin a[1,k]:=p-a[1,k]+1; a[1,k+1]:=p-a[1,k+1]+1; a[n,k]:=p-a[n,k]+1; a[n,k+1]:=p-a[n,k+1]+1; a[k,1]:=p-a[k,1]+1; a[k+1,1]:=p-a[k+1,1]+1; a[k,n]:=p-a[k,n]+1; a[k+1,n]:=p-a[k+1,n]+1; k:=k+4 end; a[1,1]:=p-a[1,1]+1; a[n,n]:=p-a[n,n]+1; a[1,n]:=p-a[1,n]+1; a[n,1]:=p-a[n,1]+1; end;
4,4(73 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ