Question

pomocy! pascal..

Napisz program, który wczytuje od użytkownik liczbę całkowita potęgi liczby 2 nie większe niż podana liczba. Przykładowo dla liczby 71 program powinien wyświetlić 1 2 4 8 16 32 64

proszę o pomoc

Answer 1

program nazwa;
uses CRT;
var
        liczba:integer;
        bin:integer;

begin
clrscr;
        bin:=1;
        liczba:=0;

        writeln('Podaj liczbe: ');
        readln(liczba);

        write('1 ');
        while (bin < liczba) do
        begin
                bin:=bin*2;
                if (bin <= liczba) then
                        write(bin,' ');
        end;
readln;
end.