10111011(2) = 1*2^7+0+1*2^5+1*2^4+1*2^3+0+1*2^1+1*2^0 = 128+32+16+8+2+1 = 187(10)
Var a,b,p:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
p:=a;
while p<b do
begin
write(p,' ');
p:=p*a;
end;
end.
Пример:
<span>a = 2
b = 20
2 4 8 16</span>
22 11 11*2=5,1 jjjjjjjjjjjjjjjjjj