Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var n,x,i,j,a:integer;
- n0:array[1..100] of integer;
- begin
- readln(n);
- a:=1;
- x:=0;
- for i:=2 to n do
- begin
- for j:= 2 to i-1 do
- begin
- if i mod j = 0 then
- begin
- x:=1;
- break
- end;
- end;
- if x = 0 then
- begin
- n0[a]:= i;
- a:=a+1;
- end
- else
- x:=0;
- end;
- for i:=1 to a-1 do
- write(n0[i],' ');
- end.
Add Comment
Please, Sign In to add comment