Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- f : longint;
- function stepen( b:integer): string;
- var
- a : array [1..1000000] of string;
- i,g,c: longint;
- begin
- for i:=2 to b do begin
- a[i]:='fasle';
- for g:=i to b do begin
- a[i+i] := 'true';
- end;
- if a[i] ='false' then begin
- writeln(i);
- end;
- end;
- end;
- begin
- Readln(f);
- stepen(f);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement