Pagini recente » Cod sursa (job #372970) | Cod sursa (job #2744253) | Cod sursa (job #1919122) | Cod sursa (job #774419) | Cod sursa (job #639665)
Cod sursa(job #639665)
var f,g:text; n,i,x,sum,j:longint;
function prim:boolean;
var s:longint;
begin
prim:=true;
for s:=2 to x do
if (j=x)or(j=x*2)or(x mod j=0)or ((x mod s=0)and(j mod s=0))
then prim:=false;
end;
begin
assign(f,'sum.in');reset(f);
assign(g,'sum.out');rewrite(g);
readln(f,n);
for i:=1 to n do begin
readln(f,x);
for j:=1 to x*2 do
if prim=true then sum:=sum+j;
writeln(g,sum+1); sum:=0;
end;
close(f);close(g);end.