Для дистанционной передачи роботу различных команд применяются сигналы в 7 бит. Какое максимальное количество команд из предложенных может быть использовано для этого робота?​

1. Это сведения, знания, сообщения о положении дел, которые человек воспринимает из окружающего мира с органов чувств (зрения, слуха, вкуса, обоняния, осязания).
2. Текстовая, числовая, графическая, звуковая, комбинированная.
3. Процессы получения, создания, сбора, обработки, хранения, накопления, поиска, представления, использования и распространения информации. Основные виды: хранение, передача, обработка информации.
4. Количество символов, используемых в алфавите.
5. Бит, байт, кбайт, мбайт, гбайт.
6. N = 2^i, где
N - мощность алфавита;
I - количество бит на символ.
7. Единицы измерения: 1 байт = 8 бит.
8. Информация, хранящаяся на внешнем носителе и объединенная общим именем.
9. Программы, которые обеспечивают управлением работы устройств и согласовании информационного обмена с другими устройствами.
10. Компьютерная программа, используемая для написания и модификации документов, компоновки макета текста и предварительного просмотра документов в том виде, в котором они будут напечатаны. 10. 32 бита = 4 байта, 2,5 кбайта = 2560 байта, 3 кбайта = 24576 бит, 6 байт = 48 бит.

Var N, k, digit, prod: longint;
begin
  readln(N);
  prod := 1; // Произведение не должно быть равно 0, в вашем случае просто отделают последнюю цифру, не проверяя ее кратна она 3 или нет
  k := 0;
  while (N > 0) do 
  begin
    digit := N mod 10;
    if (digit mod 3 = 0) and (digit<>0) then begin // (digit<>0) проверка на неравенство нулю(любое число*0=0)
    prod := prod*digit;
    k := k+1;
    end;
    N := N div 10;
  end;
  if (k = 0) 
  then writeln('NO')
  else writeln(prod) // Выводить нужно не конечное N, а именно произведение(prod)
end.