Для какого приведённых имён истинно высказывание: НЕ (Первая буква гласная) И НЕ (Последняя буква согласная)? 1)Емеля;2)Иван;3)Михаил;4)Никита.

Емеля и Иван не подходят, в силу того, что первая буква - гласная, а Михаил, не подходит, т.к. последняя буква согласная. ответ: Никита.

Объяснение:

4) Никита.

Объяснение:

Одновременно должно выполнятся два условия:

1 - Первая буква слова не гласная.

2 - Последняя буква не согласная.

Емеля и Иван не подходят, так как первая буква гласная; Михаил не подходит, так как последняя буква согласная.

Используется формула гаусса (формула "шнурования"). // pascalabc.net 3.3, сборка 1583 от 25.11.2017 // внимание! если программа не работает, обновите версию! - с функцией: function spolygongauss(a: array of real): real; // возвращает вычисленную по формуле гаусса площадь многоугольника, // координаты вершин которого заданы массивами х и у begin   var (n,i): =(a.length-4,0);   result: =0.0;   while i< =n do begin       result+=a[i]*a[i+3]-a[i+1]*a[i+2];       i+=2       end;   result: =abs(0.5*result) end; begin   var x: =readarrreal('введите координаты вершин 5-угольника: ',10);   setlength(x,12);   x[10]: =x[0];   x[11]: =x[1];   writeln('площадь равна ',spolygongauss(x)) end. пример введите координаты вершин 5-угольника: 0.6 2.1 1.8 3.6 2.2 2.3 3.6 2.4 3.1 0.5 площадь равна 3.915 - с процедурой: procedure spolygongauss(a: array of real; var s: real); // вычисляет по формуле гаусса площадь многоугольника, // координаты вершин которого заданы массивами х и у begin   var (n,i): =(a.length-4,0);   s: =0.0;   while i< =n do begin       s+=a[i]*a[i+3]-a[i+1]*a[i+2];       i+=2       end;   s: =abs(0.5*s) end; begin   var x: =readarrreal('введите координаты вершин 5-угольника: ',10);   setlength(x,12);   x[10]: =x[0];   x[11]: =x[1];   var s: real;   spolygongauss(x,s);   writeln('площадь равна ',s) end.