A  B A  B не А, отрицание, инверсия А и В, логическое умножение, конъюнкция A или B, логическое сложение, - id2124960020220914 от Laki333 14.09.2022 17:55

Question

Информатика: A  B A  B не А, отрицание, инверсия А и В, логическое умножение, конъюнкция A или B, логическое сложение, дизъюнкция Задание 1. Постройте таблицу истинности для логического выражения B^ (A V B) Задание 2. Проведите доказательство логического закона A ^ Ā = 0 (закон исключения третьего для логического умножения) с таблицы истинности. Задание 3. собака Найдите значения выражения ((1 V 0) ^ (1 ^ 1)) ^ (0 V 1) Задание 4. Найдите значения логического выражения (Х ≠ 4) V (X 7) для числа Х=5. Задание

Laki333 · Accepted Answer

Попробуй, может сработает)

program num32;var
nums, i, min, max, a, i2, i3, sum: integer;begin
min := 7;
max := 0;
sum := 0;

readln(nums);

while nums <> 0 do
begin

    if (((nums mod 10) > max)) then begin
      max := nums mod 10;
    end;



    if (((nums mod 10) < min)) then begin
      min := nums mod 10;


    end;
    nums := nums div 10;

end;

if (min > max) then begin

    for i2 := max to min do
      sum := sum + i2;
end;

if (max > min) then begin
    for i2 := min to max do
      sum := sum + i2;
end;

writeln(sum);

end.

MOGZ ответил