Question

Realizati un program care permite afisarea primelor n puteri ale lui 2 care apartin intervalului [x,y].

Answer 1

program code;var n, y, x, i, p, j : integer;    found : boolean;begin        write('x= ');        readln(x);        write('y= ');        readln(y);        write('n= ');        readln(n);
        p := 1;        found := false;
        if (x < y) then                 for i := 1 to n do begin                        for j := 1 to i do                                    p := p * 2;
                        if (p > y) or (p < x) then break;                        writeln('2 la puterea ',i,': ', p);                         p := 1;                        end;    end.