Язык программирования паскаль вычислить 27 div 4 27 mod 4 - 7 div 2 - 7 mod 2 - 14 div 3 - 14 mod 3

Паскаль говорит, что 27 div 4 = 6 27 mod 4 = 3 - 7 div 2 = - 3 - 7 mod 2 = - 1 - 14 div 3 = - 4 - 14 mod 3 = - 2

63 3 1 4 2 не вижу ничего сложного.

Const       handsfree = false; var       a: array[1..100] of real;       i, n: integer;       sum_pos, sum_neg: real;       k_pos, k_neg: integer; begin       {ввод массива}       if handsfree then               n : = random(20) + 5       else begin               write('n = ');               readln(n);       end;             writeln('данные массива: ');       for i : = 1 to n do       begin               if handsfree then begin                       a[i] : = random(100) - 50;                       write(a[i], ' ');               end               else readln(a[i]);       end;       writeln();             {подсчет}       sum_pos : = 0;       k_pos : = 0;       sum_neg : = 0;       k_neg : = 0;       for i : = 1 to n do       begin               if a[i] > 0 then               begin                       sum_pos : = sum_pos + a[i];                       k_pos : = k_pos + 1;               end;                             if a[i] < 0 then               begin                       sum_neg : = sum_neg + a[i];                       k_neg : = k_neg + 1;               end;       end;       writeln('average (positives) = ', sum_pos / k_pos);       writeln('average (negatives) = ', sum_neg / k_neg); end.

#include < iostream> #include < cmath> using namespace std; double eps = 0.000001; double sq(double a, double b, double c) {     double p = (a + b + c) / 2;     return sqrt(p * (p - a) * (p - b) * (p - c)); } int main()  {     double a1, b1, c1, a2, b2, c2;     cin > > a1 > > b1 > > c1 > > a2 > > b2 > > c2;     if (sq(a1, b1, c1) > = sq(a2, b2, c2) - eps & & sq(a1, b1, c1) < = sq(a2, b2, c2) + eps)         cout < < "yes";     else         cout < < "no"; }