Cod sursa(job #1818903)

Utilizator alexandrasirbuAlexandra alexandrasirbu Data 29 noiembrie 2016 22:26:08
Problema Fractii Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.62 kb
program fractii;
  uses crt;

  function cmmdc(a, b: qword): qword;
  begin
    while (a<>b) do begin
                      if a>b then a:=a-b
                             else b:=b-a;
                     end;
    cmmdc:=a;
  end;

  var n, i, j: word;
      Fi, Fo: text;
      rez: qword;
begin clrscr;
      Assign(Fi, 'fractii.in');
      Reset(Fi);
      ReadLn(Fi, n);
      Close(Fi);
      rez:=0;
      for i:=1 to n do
           for j:=1 to n do
                if cmmdc(i, j)=1 then inc(rez);
      Assign(Fo, 'fractii.out');
      Rewrite(Fo);
      WriteLn(Fo, rez);
      Close(Fo);
end.