В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
cucuruza5
cucuruza5
29.01.2020 21:22 •  Информатика

Упростите логические выражения 1. A(a+b+c)

2. A+- (A+B)+-A*B

3. A+- (B*- C)+- (- A+B+- C)

4. - (-a → (b → -c))


Упростите логические выражения 1. A(a+b+c)2. A+- (A+B)+-A*B3. A+- (B*- C)+- (- A+B+- C)4. - (-a → (b

Показать ответ
Ответ:
Domashkafu
Domashkafu
15.10.2022 13:13
Var
  s:string;
  m,pk:real;
  a:array[1..20] of real;
  i,k,n:integer;
begin
  Write('Введите число в системе счисления с основанием [2;16]: ');
  Readln(s);
  n:=Length(s);
  for i:=1 to n do begin
    if s[i] in ['0'..'9'] then a[i]:=Ord(s[i])-Ord('0')
    else
      if s[i] in ['A'..'F'] then a[i]:=Ord(s[i])-Ord('A')+10
      else
        if s[i] in ['a'..'f'] then a[i]:=Ord(s[i])-Ord('a')+10
        else begin
          Writeln('Символ ',s[i],' недопустим!');
          Exit
          end
    end;
  Write('Введите основание системы счисления: '); Read(k);
  if (k<2) or (k>16) then begin
    Writeln('Такое значение недопустимо!');
    Exit
    end;
  m:=a[n];
  pk:=k;
  for i:=n-1 downto 1 do begin
    m:=m+a[i]*pk;
    pk:=pk*k
    end;
  Writeln('Десятичный эквивалент введенного числа равен ',m)
end.

Тестовое решение
Введите число в системе счисления с основанием [2;16]: 4e32Ca
Введите основание системы счисления: 16
Десятичный эквивалент введенного числа равен 5124810
0,0(0 оценок)
Ответ:
kataderabinaКатюшка
kataderabinaКатюшка
31.03.2021 09:31
А       В         С       не В        не В*C        А+не В*C
0        0         0         1               0                  0
0        0         1         1               1                  1
0        1         0         0               0                  0
0        1         1         0               0                  0
1        0         0         1               0                  1
1        0         1         1               1                  1
1        1         0         0               0                  1
1        1         1         0               0                  1
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота