Тема: Алгебра Логики.

1.Даны логические функции, необходимо построить логические таблицы по заданным функциям.

1. F=(AvB)v (A& ¬B)

2. F=(AvB) & (Av ¬B)

3. F=(A↔B) & C

4. F=(A≡B) & C

5. F=(С≡B) ↔ ¬C

2.Решите логические функции (таблицы строить не надо, подставляем значения, вычисляем результат согласно правилам логического действия)

1. F= A↔ (¬A v ¬B) если А=1, В=0

2. F= (X v Y) & Z если X=1, Y=0, Z=1

3. F= (A v B) & (A v ¬B) если А=1, В=1

4. F= ¬A & (A v B &C) если А=0, В=1, C=1

Важное замечание: Для типа long long int требуется от компилятора поддержка стандарта C99.

Приложил файл расширения .cpp, чтобы обойти ограничение сайта. При работе с кодом измените на .c

#include <stdio.h>

long long int NOD(long long int var1, long long int var2) //Алгоритм Евклида

{

   while(var1 != var2)

   {

       if(var1 > var2)

           var1 = var1 - var2;

       else var2 = var2 - var1;

   }

   return var1;

}

long long int NOK(long long int var1, long long int var2)

{

   return (var1 * var2) / NOD(var1, var2);

}

int main()

{

   long long int N, K;

   scanf("%lli%lli", &N, &K);

   printf("Количество оборотов: %lli\n", NOK(N, K));

}

вариант решения, если элементы вводятся
var
  n, i, x, s : integer;
  t: string;
begin
  writeln('количество чисел');
  readln(n);
  s := 0;
  for i := 1 to n do
    begin
      writeln(i,' число:');
      readln(x);
      if (x > 9) and (x<100)) then
        begin
          t :=  IntToStr(x);
         if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3'))   then s := s+1;
        end;
    end;
    writeln('ответ ',s)
end.

вариант решения, если элементы заданы массивом
const
n=50
var
  i, x, s : integer;
  t: string;
  m1: array [1..n] of integer;
begin
  s := 0;
  for i := 1 to n do
     begin
      x := m1[i];
      if (x > 9) and (x<100)) then
        begin
          t := IntToStr(x);
         if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3'))   then s := s+1;
        end;
    end;
    writeln('ответ ',s)
end.