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

Какое количество карандашей могло быть в коробке ,если известно ,что при вытаскивании 4х штук было получено 2 байта информации

👇
Открыть все ответы
Ответ:
287888
287888
19.07.2020
Https://dotnetfiddle.net/Widget/9nnNfc

using System;                    public class Program{    public static void Main()    {        int[] a = new int[10];                for (int i = 1; i < 10; i++)            a[i] = i;                int count = 0;        int sum = 0;        int mul = 1;                for (int i =  0; i < a.Length; i++)            if (a[i] > 0) {                count++;                sum += a[i];                mul *= a[i];            }                 Console.WriteLine("сумма       : " + sum);        Console.WriteLine("произвдение : " + mul);        Console.WriteLine("количество  : " + count);    }}
4,4(85 оценок)
Ответ:
Будут вопросы - задавайте.

type a = array[0..999] of Integer;
var B, num: a; var N, k: integer; 
 
procedure SimpleNumber(B: a);
begin
    for var i := 0 to N-1 do begin
        for var j := 2 to 9 do begin
            if B[i] mod num[j] <> 0 then
                k += 1;
        end;
        if k = 8 then begin
             write('Есть простое число');
            break;
        end
        else if (k <> 8) and (i = N-1) then 
           write('Нет простых чисел');
        k := 0;
    end;
end;

begin
    for var i := 2 to 9 do begin
        num[i] := i;
    end;
    read(N);
    for var i := 0 to N-1 do 
        read(B[i]);
    SimpleNumber(B);
end.
4,7(87 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ