Cod sursa(job #124394)

Utilizator catalaurCatalin catalaur Data 19 ianuarie 2008 01:58:28
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.71 kb
// 
// File:   newmain.cc
// Author: catalaur
//
// Created on January 19, 2008, 1:20 AM
//

#include <stdio.h>
#include <iostream.h>
//
// 
//
int cmmdc(long i , long j){
    do{
        if (i>j) {
            i=i-j;
        }
        if (j>i){
            j=j-i;
        }
    }while (i!=j);
    if (i == 1) return 1;
    else return 0;
}

int main() {
    FILE *fi,*fo;
    long n,i,j,frac;
    fi = fopen("fractii.in" , "r");
    fscanf(fi , "%d" , &n);
    fclose(fi);
    frac=1;
    for (i=1;i<=n;i++){
        for (j=1; j<=n; j++){
            if (i != j){
                if (cmmdc(i,j) == 1) frac++;
            }
        }
    }
    fo = fopen("fractii.out" , "w");
    fprintf(fo , "%d" , frac);
    return 0;
}