Постройте логическую схему, соответствующую логическому вы-ражению, и найдите значение логического выражения: 1. F=AvB&¬C, если A=1, B=1, C=1.
2. F = ¬(AvB&C), если A=0, B=1, C=1.
3. F = ¬AvB&C, если A=1, B=0, C=1.
4. F =(AvB)&(CvB), если A=0, B=1, C=0.
5. F = ¬(A&B&C), если A=0, B=0, C=1.
6. F=B&¬Av¬B&A, если A=0, B=0.
7. F= ¬(A&B&C)v(B&Cv¬A), если A=1, B=1, C=0.

While (tnum != 0)  //tnum, tden - числитель и знаменатель искомой                                    дроби
    {
        if (tnum < tden)
        {
            temp = tnum;
            tnum = tden;
            tden = temp;
        }
        tnum = tnum - tden;
    }
    gcd = tden;  //вычисляем наибольший общий делитель
    numerator = numerator / gcd;  //делим числитель и знаменатель на
                                                      НОД, получаем сокращенную дробь
    denominator = denominator / gcd;

Vara,b,c,d,x1,x2: real;
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
 then writeln('Не квадратное уравнение!')
 else begin
      d:= sqr(b)-4*a*c;
      if d < 0 then writeln('Нет корней')
               else begin
                    x1:= (-b+sqrt(d))/2*a;
                    x2:= (-b-sqrt(d))/2*a;
                    writeln ('X1 =',x1,'  X2 =',x2);
                    end;
      end;
end.