uses graph;
var n,i,x,y,height,width:integer;
procedure init;
var gd,gm:integer;
begin
gd:=vga;
gm:=vgahi;
initgraph (gd,gm,'');
end;
procedure error;
begin
closegraph;
writeln ('error!');
end;
begin
write ('N = ');
readln (n);
randomize;
init;
if graphresult = 0 then
begin
for i:=1 to n do
begin
setcolor (random(14)+1);
x:=random(640);
y:=random(480);
height:=random(91)+10;
width:=random(101)+20;
rectangle (x,y,x+width,y+height);
end;
end else error;
end.
Uses crt;var a,b:real;beginwriteln('Введите сколько тон вы хотите переплавить');readln(a);b:=(10/18)*a;writeln(b,'Тон получится ');end.
T = V / s
2 / 256 = x / 512
x = 2 * 512 / 256
x = 4 кбайта
N=600
N=16*32=512
N=2^i=2^9=512
i=9 бит
I=n*i
I=600*9=5400 бит
Ответ: 5400
вроде так, хотя могла попутать