Написать программу на языке с(си) пусть процедура socr (a, b, p, q) от целых параметров (b≠0) приводит дробь a/b к несократимому виду p/q. описать данную процедуру и использовать её для дроби 1+1/2+1/3++1/20 к несократимому виду c/d.

#include<stdio.h>
#include<conio.h>

int Socr(long long int a, long long int b, long long int *p, long long int *q)
{
    long long int d;
    int c = 0;
    if (a)
    {
        if((float)a/b<0)
        {
            if(a<0) a=-a;
            if(b<0) b=-b;
            c = 1;
        }
        for(d = (a>b?b:a); (a%d!=0||b%d!=0); d--);
        if (c) *p = -a / d;
        else *p = a / d;
        *q = b / d;
    }
    else
    {
        *p = 0;
        *q = 1;
    }
    return 0;
}

int main(int argc, char *argv[])
{
    long long int a = 1, b, p = 1, q = 1;
    for(b = 2; b < 21; b++)
    {
        printf("%lli/%lli + 1/%d = ",p,q,b);
        Socr(p*b+q,q*b,&p,&q);
        printf("%lli/%lli\n",p,q);
    }
    getch();
}

Const   n = 5; var   i: integer;   a: array[1..n * 2 + 1] of integer; begin   writeln('исходный массив: ');   for i : = 1 to 2 * n do   begin       a[i] : = random(99) + 1;       write(a[i] : 5);   end;   for i : = 2 * n + 1 downto n + 1 do       a[i] : = a[i - 1];   a[n + 1] : = 0;   writeln();   writeln('полученный массив: ');   for i : = 1 to 2 * n + 1 do       write(a[i] : 5); end.

x

2

+

y

2

=

16

...

...

...

...

...

...

.

.

(

1

)

x + y = 4 (2)

rearrange (2) to y = 4 - x (could do x = 4 - y )

substitute y = 4 - x into (1)

hence:  

x

2

+

(

4

−

x

)

2

=

16

⇒

x

2

+

16

−

8

x

+

x

2

=

16

and  

2

x

2

−

8

x

+

16

−

16

=

0

⇒

2

x

2

−

8

x

=

0

factor and solve : 2x(x - 4 ) = 0  

⇒

x

=

0

,

x

=

4

substitute these values into y = 4 - x , to find corresponding values of y.

x = 0 : y = 4 - 0 = 4 → (0 , 4)

x = 4 : y = 4 - 4 = 0 → (4 , 0 )

These are the points of intersection with the line x +y = 4 and the circle  

x

2

+

y

2

=

16

Answer link

Объяснение: