Cod sursa(job #1603753)
| Utilizator | Data | 17 februarie 2016 19:12:52 | |
|---|---|---|---|
| Problema | Sum | Scor | 45 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.49 kb |
var i,j,n,x:longint;
sum:int64;
function cmmdc(a,b:longint):longint;
begin
if a=b then cmmdc:=a
else if a>b then cmmdc:=cmmdc(a-b,b)
else cmmdc:=cmmdc(a,b-a);
end;
begin
assign(input,'sum.in'); reset(input);
assign(output,'sum.out'); rewrite(output);
readln(input,n);
for j:=1 to n do
begin
readln(input,x);
sum:=1;
for i:=2 to x*2 do
if cmmdc(i,x)=1 then sum:=sum+i;
writeln(output,sum);
end;
close(input); close(output);
end.
