infoarena

procedure scrie(k:qword);
var i,nr:longint;
d:qword;
st:string[15];
c:array[1..15] of byte;
begin
nr:=0;
while (k>0) do
 begin
 inc(nr);
 d:=k div 10;
 c[nr]:=k-10*d+48;
 k:=d;
 end;
for i:=nr downto 1 do st[nr-i+1]:=chr(c[i]);
st[0]:=chr(nr);
writeln(st);
end;

var n,x,j,i:longint;
    sum:int64;
    v:array[1..200010] of int64;
    u:array[1..100005] of byte;
    f,g:text;
 procedure aha;
  begin
  for i:=1 to 100005 do
   v[i]:=i-1;
  for i:=2 to 100005 do
   if u[i]=0 then
   begin
    j:=2*i;
     while j<=100005 do
      begin
       u[j]:=1;
       v[j]:=v[j]-v[i];
       j:=j+i;
      end;
   end;
  end;
 begin
  aha;
  assign(f,'sum.in');
  assign(g,'sum.out');
  reset(f);
  rewrite(g);
  readln(f,n);
  for i:=1 to n do
  begin
  readln(f,X);
  sum:=v[x]*x*2;
  writeln(g,sum);
  end;
  close(f);
  close(g);
 end.

#include <fstream>
using namespace std;

#define MAX 100005
long long sum;
long n,x,j,i;
long long v[MAX];
char u[MAX];
void ciur()
{
    for (i=1;i<=MAX;i++)
      v[i]=i-1;
    for (i=2;i<=MAX;i++)
     if (u[i]==0)
     {
      if (i*i<=MAX)           
      for (j=i*i;j<=MAX;j+=i)
      {
          u[j]=1;
          v[j]-=v[i]; 
      }     
      else break;
     } 
}        
int main()
{
    ciur();
    ifstream f("sum.in");
    ofstream g("sum.out");
    f>>n;
    for (i=1;i<=n;i++)
    {
        f>>x;
        sum=v[x]*x*2;
        g<<sum<<"\n";
    }     
    return 0;
}    
    
 

for(int k=1;k<=n;++k)
	{
		scanf("%lld",&x);
                 ...

10
564
74
851
14
51
201
471
41
65
40

207552
5328
1347984
168
3264
53064
293904
3280
6240
1280

#include <iostream>
#include <fstream>
  using namespace std;
  int cmmdc(int a,int b)
  {  if (!b) return a;
  return cmmdc(b,a % b);
  }
 int main(void)
 {
    ifstream f("sum.in");
    ofstream g("sum.out");
   int n,x,y,i,j;
   f>>n;
   for(i=1;i<=n;i++)
   {   f>>x;
    y=0;
     for(j=1;j<=2*x;j++)
     {  if (cmmdc(x,j)==1) y=y+j;}
     g<<y<<"\n";
     }
     f.close();
   return 0;
   }