Kwwiker

Untitled

Oct 6th, 2020
135
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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.
RAW Paste Data