Составьте программу вычисления произведения чисел от 1 до 5 (1*2**5)

1,2,3,4,5,0 чего тут сложного

// pascalabc.net 3.2, сборка 1356 от 04.12.2016 // внимание! если программа не работает, обновите версию! type   point=record       x,y: real;       name: char   end;   vector=record       x,y,l: real;   end; function createpoint(px,py: real): point; begin   with result do begin       x: =px;       y: =py;   end end; function createvector(a,b: point): vector; begin   with result do begin       x: =b.x-a.x;       y: =b.y-a.y;       l: =sqrt(x*x+y*y)   end end;   function isnormal(a,b: vector): =abs(b.x*a.x+b.y*a.y)< =1e-6; begin   var x,y: real;   write('введите координаты x и y точки a: '); read(x,y);   var a: =createpoint(x,y);   write('введите координаты x и y точки b: '); read(x,y);   var b: =createpoint(x,y);   var ab: =createvector(a,b);   write('введите координаты x и y точки c: '); read(x,y);   var c: =createpoint(x,y);   var bc: =createvector(b,c);   if abs(ab.l-bc.l)> 1e-6 then begin       writeln('стороны ab и bc не равны');       exit       end;   if not isnormal(ab,bc) then begin       writeln('стороны ab и bc не перпендикулярны');       exit       end;   write('введите координаты x и y точки d: '); read(x,y);   var d: =createpoint(x,y);   var cd: =createvector(c,d);   if abs(ab.l-cd.l)> 1e-6 then begin       writeln('стороны ab и cd не равны');       exit       end;   var ad: =createvector(d,a);   if abs(ab.l-ad.l)> 1e-6 then writeln('стороны ab и adc не равны')   else writeln('точки образуют квадрат с точностью не ниже 0.000001') end. пример здесь заданы координаты квадрата, сдвинутого относительно осей координат и повернутого на угол 30 градусов против часовой стрелки. поэтому числа такие "некруглые". введите координаты x и y точки a: -0.4641 -4.4641 введите координаты x и y точки b: 3.5359 2.4641 введите координаты x и y точки c: 10.4641 -1.5359 введите координаты x и y точки d: 6.4641 -8.4641 точки образуют квадрат с точностью не ниже 0.000001

Людоед голоден тогда и только тогда, когда он давно не ел.

решение:

обозначим через а простое высказывание «людоед голоден», а через в «он давно не ел». тогда логическая формула сложного высказывания имеет вид: а=в.

 

таблица истинности операций импликации и эквивалентности.

    а                               в                     а→в                           а=в    и                             и                       и                                 и    и                             л                       л                                 л    л                             и                       и                                 л    л                             л                       и                                 и

 

вывод.

порядок логических операций по убыванию старшинства следующий: отрицание, конъюнкция, дизъюнкция, импликация, эквивалентность.