Cod sursa(job #454622)

Utilizator laurentiuuCindea Laurentiu Bogdan laurentiuu Data 12 mai 2010 08:20:32
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
program fractii;
var n,i,j,q,a,b:integer;
begin
        write('n= ');   readln(n);
        q:=n*2-1;
        for i:=2 to n do
        for j:=2 to n do
        begin
        a:=i;   b:=j;
        while (a<>b) do
        if a>b then a:=a-b
                else b:=b-a;
        if (a=1) then q:=q+1;
        end;
        write('q= ',q);
end.