Что представляет собой среда исполнителя грис

Система команд

Система команд , режим работы

#include < cstdlib> #include < iostream> #include < cmath> using namespace std; int main() {     float a,b,c,p,s;     struct    {             float ax,ay,bx,by,cx,cy;       } abc;     cout< < " задайте координаты точек"< < endl;     cout< < " ax "< < " ay "< < " bx "< < " by "< < " cx "< < " cy";     cout< < endl;     cin> > abc.ax> > abc.ay> > abc.bx> > abc.by> > abc.cx> > abc.cy; // вычисление длин сторон     a=sqrt(pow((abc.bx-abc.ax),2)+pow((abc.by-abc.ay),2));     b=sqrt(pow((abc.cx-abc.bx),2)+pow((abc.cy-abc.by),2));     c=sqrt(pow((abc.cx-abc.ax),2)+pow((abc.cy-abc.ay),2));     p=(a+b+c)/2; // проверка, что можно составить треугольник     if -a)> 0) & & ((p-b)> 0) & & ((p-c)> 0))     cout< < "точки образуют треугольник"< < endl;     else   cout< < "точки лежат на одной прямой"< < endl;     system("pause");     return(0); }

Pascalabc.net 3.4.2, сборка 1887 от 30.11.2018 внимание! если программа не работает, обновите версию!

begin

  var a : = arrrandom(readinteger('n='), -99, 99);

  a.println;

  var s: =0;

  for var i : = 0 to a.high do

    if (a[i] mod 7) = (a[i] mod 2) then

    begin

      print(i + 1);

      s+=a[i]

    end;

  println;

  print('s =',s)

end.

пример

n= 20

-66 27 -82 -18 -35 -41 34 -58 61 15 11 -43 -16 37 -99 69 -52 -97 16 -21

10 12 15

s = -127