Advertisement
Guest User

Untitled

a guest
Nov 30th, 2015
61
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.39 KB | None | 0 0
  1. var
  2. f : longint;
  3. function stepen( b:integer): string;
  4. var
  5. a : array [1..1000000] of string;
  6. i,g,c: longint;
  7. begin
  8. for i:=2 to b do begin
  9. a[i]:='fasle';
  10. for g:=i to b do begin
  11. a[i+i] := 'true';
  12. end;
  13. if a[i] ='false' then begin
  14. writeln(i);
  15. end;
  16. end;
  17. end;
  18.  
  19. begin
  20. Readln(f);
  21. stepen(f);
  22. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement