10111--------------1*2^4+0*2^3+1*2^2+1*2^1+1*2^0=16+0+8+4+2+0=(считай)
133------------1*4^2+3*4^1+3*4^0= посчитай, учитывая,что любое число в 0 степени=1
это же так легко. это самое легкое в информатике
Uses graphabc;
begin
window.IsFixedSize := true;
window.Height := 600;
window.Width := 800;
pen.Color := clred;
lockdrawing;
for var i := 0 to 750 do
begin
window.Clear;
DrawRectangle(i, 0, 50 + i, 50);
redraw;
end;
end.