Advertisement
Kwwiker

Untitled

Oct 6th, 2020
195
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.13 KB | None | 0 0
  1. var N,i: integer;
  2. begin
  3.     readln(N);
  4.     i:=1;
  5.     while i <= N do
  6.     begin
  7.         writeln(i);
  8.         i:=i*2;
  9.     end;
  10. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement