Pagini recente » Cod sursa (job #1431713) | Cod sursa (job #603859) | Cod sursa (job #1114467) | Cod sursa (job #2709103) | Cod sursa (job #123420)
Cod sursa(job #123420)
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 k:=1 to n do
Begin
Readln(fin,x);
s:=0;
for i:=0 to 2*x-1 do
Begin
ok :=true ;
for j:=2 to i do begin
if ((x mod j=0) and (i mod j=0) )then
ok:=false;
end;
If ok then
Begin
S:=S+i;
// write(fout,i,' ');
End ;
End;
writeln(fout,s);
//writeln(fout,' ');
End;
close(fin);
close(fout);
end.