Cod sursa(job #284679)

Utilizator harababurelPuscas Sergiu harababurel Data 21 martie 2009 21:29:42
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.69 kb
#include <iostream.h>
#include <fstream.h>
#include <math.h>
int main() {
	ifstream f; f.open("fractii.in");
	ofstream g; g.open("fractii.out");
	long long n, q, p, v[16000], rez=0, i, j,k,l, seimparte=0;
	f>>n;
	for(i=1; i<=n; i++) {
		v[i]=i;
		}
//generare vector nr prime
	for(i=1; i<=sqrt(n); i++) {
		if(v[i]!=0) {
			for(j=i+1; j<=n; j++) {
				if(v[j]%v[i]==0) {
					v[j]=0;
					}
				}
			}
		}
	for(i=1; i<=n; i++) {
		for(j=1; j<=n; j++) {

			if(i!=j) {
				seimparte=0;
				for(k=2; k<i; k++) {
					if(i%k==0 && j%k==0) {
						seimparte=1;
						}
					}
				if(seimparte==1) { rez++; }
			}
		}
	}
	g<<rez;
	f.close();
	g.close();
	return 0;
}