<span>8 Мбайт = 2^3*2^10 Кбайт = </span>2^13 Кбайт = 2^13*2^10 байт = <span>2^23 байт = </span>2^23*2^3 бит = <span>2^26 бит</span>
Вот код для qbasic'a
SCREEN 12
cls
LINE (200, 200)-(350, 400), , B
LINE (200, 200)-(275, 100)
LINE (275, 100)-(350, 200)
CIRCLE (275, 160), 20
PAINT (275, 160)
LINE (250, 250)-(300, 300), , B
LINE (275, 250)-(275, 300)
LINE (250, 270)-(300, 270)
LINE (350, 400)-(355, 210), , B
LINE (350, 210)-(370, 200), , B
LINE (350, 400)-(400, 400)
LINE -(400, 380)
LINE -(380, 380)
LINE -(380, 360)
LINE -(355, 360)
LINE (325, 165)-(325, 100)
LINE -(310, 100)
LINE -(310, 145)
Аня - туристка, Боря - художник, Гриша - футболист, Дина - певица, Вася - танцор
Vara1,b1,c1,p1,a2,b2,c2,p2,s1,s2:real;
Begin
read(a1,b1,c1);
p1:=(a1+b1+c1)/2;
read(a2,b2,c2);
p1:=(a2+b2+c2)/2;
s1:=sqrt(p1*(p1-a1)*(p1-b1)*(p1-c1));
s2:=sqrt(p2*(p2-a2)*(p2-b2)*(p2-c2));
if s1=s2 then
writeln('=') else
if s1>s2 then
writeln('>') else
writeln('<');
<span>End.</span>