Cod sursa(job #3238591)

Utilizator mariusfilip_andreiFilip Marius-Andrei mariusfilip_andrei Data 26 iulie 2024 20:13:52
Problema Pairs Scor 20
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.51 kb
#include <stdio.h>
#include <stdlib.h>
int a[100000];
int CMMDC(int a,int b)
{
    while(b)
    {
        int r=a%b;
        a=b;
        b=r;
    }
    return a;
}
int main()
{
    int n,i,j;
    FILE *f=fopen("pairs.in","r");
    FILE *g=fopen("pairs.out","w");
    fscanf(f,"%d",&n);
    int k=0;
    for(i=1;i<=n;i++)
        fscanf(f,"%d",&a[i]);
   for(i=1;i<n;i++)
        for(j=i+1;j<=n;j++)
        if(CMMDC(a[i],a[j])==1)
            k++;
        fprintf(g,"%d",k);
    return 0;
}