Guest User

Untitled

a guest
Jan 22nd, 2018
68
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.39 KB | None | 0 0
  1. var n,x,i,j,a:integer;
  2. n0:array[1..100] of integer;
  3.  
  4. begin
  5. readln(n);
  6. a:=1;
  7. x:=0;
  8.  
  9. for i:=2 to n do
  10. begin
  11. for j:= 2 to i-1 do
  12. begin
  13. if i mod j = 0 then
  14. begin
  15. x:=1;
  16. break
  17. end;
  18. end;
  19. if x = 0 then
  20. begin
  21. n0[a]:= i;
  22. a:=a+1;
  23.  
  24. end
  25. else
  26. x:=0;
  27. end;
  28.  
  29. for i:=1 to a-1 do
  30. write(n0[i],' ');
  31.  
  32. end.
Add Comment
Please, Sign In to add comment