Pagini recente » Cod sursa (job #2787658) | Cod sursa (job #1267414) | Cod sursa (job #3240894) | Cod sursa (job #2317635) | Cod sursa (job #147377)
Cod sursa(job #147377)
program sum;
var
f,g:text;
y,x,n,i,s:longint;
function p(x:longint):boolean;
var
d:longint;
ok:boolean;
begin
d:=2;
ok:=true;
while (ok) and (d<=x div 2) do
begin
if x mod d=0 then
ok:=false;
inc(d);
end;
p:=ok;
end;
begin
assign(f,'sum.in');
reset(f);
readln(f,n);
assign(g,'sum.out');
rewrite(g);
for i:=1 to n do
begin
readln(f,x);
s:=x;
for y:=1 to 2*x do
if p(y) then
s:=s+y;
writeln(g,s);
end;
close(f);
close(g);
end.