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.
Ну как-то так у меня вышло на скорую руку
N=2^i
256=2^8
i=8 (один символ кодируется восемью битами или одним байтом)
I=ki=256*1=256 байт
Ответ:
Скажите значения переменных, тогда напишу программу.И на каком языке уточните.