Описать функцию fact (n) вещественного типа вычисляющую значение факториала n! =1*2*3*..*n (n> 0, параметр целого типа с этой функции найти факториалы пяти данных целых чисел.

Вот программа: var   x: integer; function fact(n: integer):   integer; var   i,sum: integer; begin   sum: =1;   for i: =1 to n do   sum: =sum*i;   result: =sum; end; begin    readln(x);   writeln(fact(x)); end. > с этой функции найти  факториалы пяти данных целых чисел.                          - вы не написали каких чисел

Var   a, b, c, d, e, f, k: integer;   begin   for a : = 1 to 9 do     for b : = 0 to 9 do       for c : = 0 to 9 do         for d : = 0 to 9 do           for e : = 0 to 9 do             for f : = 0 to 9 do               if a + b + c = d + e + f then                   k : = k + 1;   writeln(k);   end.

Рассмотрим уравнение вида ax³ + bx = 0 его также можно представить в виде x(ax² + b) = 0  это же равносильно системе [ x = 0 [ x =  ±√( -b / a ) понятно, что решением этого уравнения, независимо от коэффициентов, будет всегда являться 0. также уравнение будет иметь и другие корни, при a ≠ 0 и -b / a > 0, это x =  ±√(  -b / a ) решение на с #include < stdio.h> #include < math.h> int main() {     // ввод данных     float a, b;     printf("a = ");     scanf("%f", & a);     printf("b = ");     scanf("%f", & b);     // первый корень уравнения     printf("x1 = 0\n");     // второй и третий корни уравнения     if (a ! = 0 & & -b / a > 0) {         printf("x2 = %.3f \n", -sqrt(-b / a));         printf("x3 = %.3f \n", sqrt(-b / a));     }     return 0; }