Cod sursa(job #1816950)

Utilizator balazstasiTasi Balazs balazstasi Data 27 noiembrie 2016 10:41:52
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
Program Fractii;

VAR
	f,g      : Text;
	i,j,db,n : Integer;
	
BEGIN

	Assign(f,'fractii.in'); Reset(f);
	Assign(g,'fractii.out'); Rewrite(g);
	
	Read(f,n);
	
	db:=0;
	
	For i:=1 to n do
		For j:=1 to n do
			begin
				If j=1 then Inc(db);
				If i mod j <> 0 then Inc(db);
			end;
			
	Write(g,db);
	
	Close(f); Close(g);
	
END.