Pagini recente » Cod sursa (job #1983731) | Cod sursa (job #2014827) | Cod sursa (job #2005760) | Cod sursa (job #200375) | Cod sursa (job #123450)
Cod sursa(job #123450)
program sum;
{$APPTYPE CONSOLE}
uses
SysUtils;
var fin,fout:text;
i,j,n,m,t,q:longint;
s:int64;
{*-----------------------------*}
function prim(a,b:longint):boolean;
begin
prim:=true;
for q:=2 to b do
Begin
if ((a mod q = 0 ) and (b mod q = 0)) then
Begin
prim:=false;
Break;
End;
End;
end;
{*---------------MAIN----------*}
begin
assign(fin,'sum.in'); reset(fin);
assign(fout,'sum.out'); rewrite(fout);
readln(fin,t);
for J:=1 to T do
Begin
Readln(fin,n);
s:=0;
for i:=0 to 2*N-1 do
Begin
If Prim(i,n) then
Begin
S:=S+i;
// write(fout,i,' ');
End;
End;
writeln(fout,s);
// writeln(fout,' ');
End;
close(fin);
close(fout);
end.