Cod sursa(job #211373)

Utilizator ktalyn93Catalin ktalyn93 Data 1 octombrie 2008 21:15:57
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.26 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);
	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.