Cod sursa(job #211376)

Utilizator ktalyn93Catalin ktalyn93 Data 1 octombrie 2008 21:17:46
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.28 kb
Raporteaza aceasta sursa 
program fractii;
var n,i,k:integer;
    f,g:text;
begin
	assign(f,'fractii.in');
	assign(f,'fractii.out');
	reset(f);
        rewrite(g);
	readln(f,n);
	k:=0;
	for i:=1 to n do
		for j:=1 to n do
			if i mod j<>0 then
				k:=k+1;
	write(g,k);
	close(f);
	close(g);
end.