Регистрация
RUSsamir
03.05.2020 16:07
Информатика
Есть ответ 👍

Таблица истиности дизъюнкция и конъюнкция

179
497
Посмотреть ответы 2

Ответы на вопрос:

mcmorgana
mcmorgana
4,5(17 оценок)
Предлагаю пример в excel копируете необходимый элемент, задаете параметры на входе, получаете таблицу истинности на выходе.
панда1341
панда1341
4,4(25 оценок)

ответ:

program arraytest;

var

  a: array [1..20] of integer;

  i, s, c: integer;

begin

  randomize;

  for i : = low (a) to high (a) do begin

    a [i] : = random (20001) - 1;

    write (a [i], ' ');

  end;

  c : = 0;

  writeln;

  for i : = low (a) to high (a) - 1 do begin

    s : = a [i] + a [i + 1];

    if (s mod 2 < > 0) and (s > 0) then begin

      inc (c);

      writeln (a [i], ' ', a [i + 1]);

    end;

  end;

  writeln ('количество пар элементов = ', c);

  readln;

end.

Популярно: Информатика