Pagini recente » Cod sursa (job #2617115) | Cod sursa (job #183333) | Cod sursa (job #764150) | Utilizatori inregistrati la preONI 2008, Runda 1, Clasele 11-12 | Cod sursa (job #117170)
Cod sursa(job #117170)
program sum;
{$APPTYPE CONSOLE}
uses
SysUtils;
var fin,fout:text;
i,j,n,m,t,q,s:longint;
{*-----------------------------*}
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;
write(fout,q,' ');
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.