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

F(x1 x2 x3) = x3v(x2 & x1 & x3)
найти таблица истинности

👇
Ответ:
orlovaelvira
orlovaelvira
17.02.2020

x3 + (x2*x1*x3) = x3 * (1 + x2*x1) = x3 = f

x1.x2.x3.f

000 0

001 1

010 0

011 1

100 0

101 1

110 0

111 1

4,8(31 оценок)
Открыть все ответы
Ответ:
epoluektova
epoluektova
17.02.2020
Const
  mm = 10;
  nn = 8;

type
  M = array[1..mm, 1..nn] of integer;
  KS = array[1..2, 1..nn] of integer;

procedure GetKS(var a: M; var b: KS; m, n: integer);
{ Помещает в b[1,*] суммы отрицательных элементов массива а[m,n] по столбцам,
  а в b[2,*] - количества этих элементов }
var
  i, j, s, k: integer;
begin
  for j := 1 to n do
  begin
    k := 0; s := 0;
    for i := 1 to m do
      if a[i, j] < 0 then begin s := s + a[i, j]; Inc(k) end;
    b[1, j] := s; b[2, j] := k
  end
end;

procedure Init(var a: M; m, n: integer);
{ Заполняет массив a[m,n] случайными значениями на интервале [-50;50]
  и выводит их на экран }
var
  i, j: integer;
begin
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(101) - 50;
      Write(a[i, j]:5)
    end;
    Writeln
  end
end;

procedure OutKS(var a: KS; n: integer);
{ Выводит на экран элементы массива a[2,n]}
var
  i, j: integer;
begin
  for i := 1 to 2 do
  begin
    for j := 1 to n do Write(a[i, j]:5);
    Writeln
  end
end;

procedure Work(var a: M; var b: KS; m, n: integer);
{ цикл работы с массивом }
begin
  Init(a, m, n);
  GetKS(a, b, m, n);
  Writeln('Суммы и количество');
  OutKS(b, n);
end;

var
  X, Y: M;
  Z: KS;

begin
  Writeln('Массив Х');
  Work(X, Z, 10, 8);
  Writeln;
  Writeln('Массив Y');
  Work(Y, Z, 6, 8);
end.

Тестовое решение:
Массив Х
  -50   49    0   28   -8  -27   -4  -45
   10   10   10   27   17   15  -35   47
  -22  -42   21   40  -40   -4    1  -49
  -21   37    5  -34   26   10  -33  -26
    2   27   30  -46   -9   -2   33    2
   -3    6   -9  -38  -29  -18  -36   28
   -8   39  -16   49  -50   39  -37    5
   -2   -2   -2    6   18  -21  -20  -50
   -7  -15  -26   40   35  -40    5   31
  -25  -31   -8    4  -45  -11   31   48
Суммы и количество
 -138  -90  -61 -118 -181 -123 -165 -170
    8    4    5    3    6    7    6    4

Массив Y
   22   27   24   38  -24  -32  -26   13
   14  -25    6   44   50  -24   34  -33
  -24  -10   20   36  -43  -25   44  -19
  -17    4   23   31   -4    9   -1  -41
   17    1   34   42    6   -8   25  -26
  -40   11  -24   10    4   12   31   50
Суммы и количество
  -81  -35  -24    0  -71  -89  -27 -119
    3    2    1    0    3    4    2    4
4,8(34 оценок)
Ответ:
konovalova701
konovalova701
17.02.2020
1. Для цикла For есть решение выложенное выше  от Srzontmp.

2. Почти ничего не меня получим код для цикла while:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  while i <= n div 2 do begin
    if (n mod i) = 0 then k := i;
    i:=i+1;
    end;
  writeln('наибольший делитель ', n, ' = ', k);
end.

3. Аналогично для цикла Repeat:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  repeat
    if (n mod i) = 0 then k := i;
    i:=i+1;
  until i> n div 2;
  writeln('наибольший делитель ', n, ' = ', k);
end.
4,6(85 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ