Cod sursa(job #2646732)

Utilizator razvan.maziluMazilu Razvan razvan.mazilu Data 1 septembrie 2020 20:02:04
Problema Fractii Scor 10
Compilator c-64 Status done
Runda Arhiva de probleme Marime 1.07 kb
#include <stdio.h>
#include <stdlib.h>
#define NMax 1000000

int P[NMax], Q[NMax];
FILE *f, *g;

int cmmdc(int a, int b)
{
    int r;
    while(b)
    {
        r = a%b;
        a = b;
        b = r;
    }
    /*while(a != b)
    {
      if(a > b)
        a = a - b;
      else
        b = b - a;
    }*/

    return a;
}

int main()
{
    int N, ct_fractii = 0;

    f = fopen("fractii.in", "r");
    g = fopen("fractii.out", "w");

    if(f == NULL)
    {
       printf("Eroare citire fisier");
       exit(1);
    }

    if(g == NULL)
    {
       printf("Eroare scriere fisier");
       exit(1);
    }

    fscanf(f, "%d", &N);

    for(int lv = 1; lv <= N; lv++)
    {
       if(lv == 1)
         ct_fractii++;

       if(lv == 2)
         ct_fractii += 2;

       if(lv > 2)
       {
          for(int i = 1; i <= lv; i++)
          {
              if(cmmdc(i,lv) == 1)
                ct_fractii += 2;
          }
       }
    }

    fprintf(g, "%d", ct_fractii);

    fclose(f);
    fclose(g);

    return 0;
}