Pagini recente » Istoria paginii runda/conc/clasament | Cod sursa (job #970920) | Cod sursa (job #1844042) | Cod sursa (job #1342232) | Cod sursa (job #123429)
Cod sursa(job #123429)
program sum;
{$APPTYPE CONSOLE}
uses
SysUtils;
var fin,fout:text;
k, x, i,j,n,m,t,q,s:longint; ok:boolean;
{*-----------------------------*}
function prim(i,x:longint):boolean;
begin
prim:=true;
if (x mod i = 0 ) then
Begin
prim:=false;
write(fout,q,' ');
End;
end;
{*---------------MAIN----------*}
begin
assign(fin,'sum.in'); reset(fin);
assign(fout,'sum.out'); rewrite(fout);
readln(fin,n);
for t:=1 to n do
Begin
Readln(fin,x);
s:=0; k:= 2*x-1;
for i:=0 to k do
Begin
ok :=true ;
if (x mod 2= 0 )and (i mod 2 =0) then ok :=false else begin
for j:=2 to i do begin
if ((x mod j=0) and (i mod j=0) )then
begin ok:=false;break;end;
end;
If ok then
Begin
S:=S+i;
// write(fout,i,' ');
End ;
end;
End;
writeln(fout,s);
End;
close(fin);
close(fout);
end.