Постройте синхронный автомат на JK-триггерах для заданной последовательности смены его состояний. Найдите минимальные ДНФ булевых функций, описывающих работу комбинационной схемы, которая управляет входами всех триггеров автомата. При подаче на вход схемы тактовых импульсов последовательность смены состояний имеет следующий вид 0,2,5,6,3,1,4,7

* "F" (file) specs define files and other i/o devices

    FARMstF1   UF   E        K     Disk    Rename(ARMST:RARMST)

     * "D" specs are used to define variables and parameters

     * The "prototype" for the program is in a separate file

     * allowing other programs to call it

     /copy cust_pr

     * The "procedure interface" describes the *ENTRY parameters

    D getCustInf      PI

    D  pCusNo                        6p 0   const

    D  pName                        30a

    D  pAddr1                       30a

    D  pAddr2                       30a

    D  pCity                        25a

    D  pState                        2a

    D  pZip                         10a

     /free

       // The "chain" command is used for random access of a keyed file

       chain pCusNo ARMstF1;

       // If a record is found, move fields from the file into parameters

       if %found;

          pName  = ARNm01;

          pAddr1 = ARAd01;

          pAddr2 = ARAd02;

          pCity  = ARCy01;

          pState = ARSt01;

          pZip   = ARZp15;

       endif;

       

     // RPG makes use of switches.  One switch "LR" originally stood for "last record"

     //LR actually flags the program and its dataspace as removable from memory.

       *InLR = *On;

     /end-free

Объяснение:

Const n=10;
var 
  a: array[1..n] of integer;
  p,k: integer;
  i: byte;
begin
  randomize;
  p:=1; k:=0;
  for i:=1 to n do begin
    a[i]:=random(21);
    if (a[i]>0) and (a[i] mod 6 =0) then begin
      p:=p*a[i];
      k:=k+1;
    end;
  end;
  println (a);
  if k>1 then writeln ('Произведение элементов, кратных 6, = ',p)  
    else if k=1 then writeln ('Найден всего 1 элемент, кратный 6, - ',p)
           else writeln ('Нет элементов, кратных 6')
end.

Примеры:

15 7 14 14 1 17 4 2 20 10
Нет элементов, кратных 6

12 11 16 1 20 6 0 8 7 20
Произведение элементов, кратных 6, = 72

14 6 8 3 15 7 14 5 19 15
Найден всего 1 элемент, кратный 6, - 6