Составить программу на pascal abc. дано: треугольник a, b, c. найти s. надо. зарание

Var a,b,c,p,s: real; begin read(a,b,c); p: =(a+b+c)/2; s: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln(s); end.

// возможно, это работает #include< stdio.h> int main() {   int x,s,l,n;   scanf("%d", & n);   do{   s = 0;       for(x = 1; x < = n; x++)     {     s += 1;     l = 10;     while(x % l == 0){s -= 9; l *= 10; };     if(x % s == 0) printf("%d ",x);         };   printf("\n");   scanf("%d", & n); } while(n > 0);         }

Предлагаю для начала рассматривать только значения вида (x.. xor очевидно, скажем, если (x1 xor x2) = 0, то (x3 xor x4) = 1 так что достаточно посчитать количество цепочек значений xor'ов, где нет двух стоящих подряд 0. всего пять значений, так что можно посчитать все вручную. например, составить дерево. получилось 13 цепочек. т.к. каждому значению .. xor .. соответствует пара возможных значений x (01 и 10), каждая цепочка будет соответствовать 2^5 = 32 возможным значениям x1..10. соответственно, ответ: 13 * 32 = 416