Записать логическую функцию, описывающую состояние логической схемы.

Составить таблицу истинности.

​

program mdd; uses crt; var a,b,c,d: longint; beginclrscr; readln(a,b,c,d); if (a> b) and (a> c) and (a> d) and (d< a) and (d< c) and (d< b) then writeln('правда')else writeln(''неправда); readkey; end.

на египетскую

вавилон-клинопись

финикия-подобие букв без гласных

египет-иероглифы

var a: array [1..100] of real; i,n: integer;

t: real; begin  randomize;   n: =20;   for i: = 1 to n do begin      a[i]: =random(n*10)- 10*n div 2 ;       write(a[i]: 4);       if i mod 10=0 then writeln;   end;  

  t: =a[1]

  for i: = 1 to n do begin      a[i]: =a[i]/t ;       write(a[i]: 4);       if i mod 10=0 then writeln;   end;   end.

var n,i: integer;

begin

  read(n);

  for i: = 2 to (n-1) do

      if n mod i ==0 then begin

          writeln('no');

          break;

      end;

  writeln('yes');

end.