Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  adadaval
Language: PASCAL
Code:
program main;
var
n,i,j,k,x,s,g,z:integer;
begin
readln(z);
for i:=1 to z do
begin
readln(n);
for j:=1 to n do
for x:=1 to j do
begin
if j md x=0 then k:=k+1;
end;
if k=2 then
begin
s:=s+j;
if (j=1) or (j=0) then s:=0;
end;
if s=n then g:g+1;
if g:=g+1 then s:=0;
k:=0;
end;
end;
end.

     
Comments: