Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var N,i: integer;
- begin
- readln(N);
- i:=1;
- while i <= N do
- begin
- writeln(i);
- i:=i*2;
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement