Для каких из имён ложно высказывание: не ( первая буква гласная ) или ( последняя буква гласная )? анна , максим , татьяна , егор , антон p.s с объяснением ,

условие или истинно, если хотя бы одно высказывание истинно.

таблица истинности для условия или:

a или b     =     с1           1           11           0           10         1           10         0           0

приставка не означает истину, если высказывание ложно и ложь, если высказывание истинно (то есть она меняет истину и ложь)

его можно понимать как высказывание "первая буква не гласная"

анна

не (первая буква гласная) 0

последняя буква гласная   1

0 или 1 = 1

истина

максим

не (первая буква гласная)   1

последняя буква гласная   0

1 или 0 = 1

истина

татьяна

не (первая буква гласная) 1

последняя буква гласная   1

1 или 1 = 1

истина

егор

не (первая буква гласная) 0

последняя буква гласная   0

0 или 0 = 0

ложь

антон

не (первая буква гласная) 0

последняя буква гласная   0

0 или 0 = 0

ложь

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! unit asm; interface   type sf=(integer,integer);   function addsf(a,b: sf): sf;   function subsf(a,b: sf): sf;   function multsf(a,b: sf): sf;   function divsf(a,b: sf): sf;   implementation     function gcd(p: sf): integer;   begin       (var a,var b): =p;       a: =abs(a); b: =abs(b);       while b> 0 do (a,b): =(b,a mod b);       result: =a   end;     function reductsf(p: sf): sf;   begin       var t: =gcd(p);       if t> 1 then result: =(p[0] div t,p[1] div t)       else result: =p   end;     function addsf(a,b: sf): =reductsf((a[0]*b[1]+a[1]*b[0],a[1]*b[1]));     function subsf(a,b: sf): =reductsf((a[0]*b[1]-a[1]*b[0],a[1]*b[1]));   function multsf(a,b: sf): =reductsf((a[0]*b[0],a[1]*b[1]));         function divsf(a,b: sf): =reductsf((a[0]*b[1],a[1]*b[0]));   end. ***** пример работы с модулем ***** uses asm; begin   var a: =(5,24);   var b: =(7,8);   var c: =addsf(a,b);   writeln(a[0],'/',a[1],'+',b[0],'/',b[1],'=',c[0],'/',c[1]) end. результат 5/24+7/8=13/12

Uses crt; const     n = 10; var     f: text;     s: string;     a: array[1..n] of longint;     i,j,k: integer; begin clrscr; writeln('введите имя файла текстового, если он лежит в папке с программой(входнойфайл.txt)'); writeln('или введите полное имя файла (c: .txt)'); readln(s); assign(f,s); reset(f); i: =1; repeat read(f,a[i]); i: =i+1; until i> n; write('содержимое файла: '); for i: = 1 to n do       write(' ',a[i]); writeln; write('уникальные элементы: '); for i: = 1 to n do       begin       k: =1;       for j: = 1 to n do               if i< > j then                     if a[i]=a[j] then k: =k+1;       if k=1 then write(' ',a[i])       end; readln; end. пример: введите имя файла текстового,если он лежит в папке с программой(входнойфайл.txt) или введите полное имя файла (c: .txt) 123.txt содержимое файла: 1 2 13 5 2 1 3 17 19 21 уникальные элементы: 13 5 3 17 19 21