Все я устал
<em><u /></em>⇒⇒√√√⇔≥α≡
Вот на Pascal NET,только желтые точки будет почти не видно
uses GraphABC;
begin
//Левый верхний угол
PutPixel(1,1,clYellow);
//Левый нижний угол
PutPixel(1,WindowHeight-1,clYellow);
//Правый верхний угол
PutPixel(WindowWidth-1,1,clYellow);
//Правый нижний угол
PutPixel(WindowWidth-1,WindowHeight-1,clYellow);
<span>end.</span>
var i,a,b,c,k: integer;
begin
for i:=1 to 5 do
begin
a:=random(8)+1;
b:=random(8)+1;
write (a,' * ',b,' = ');
readln (c);
if c = a*b then k:=k+1
end;
writeln ('Вы правильно ответили на ',k,' примера')
end.
1
4 дороги = 2^2 т.е. 2 бита информации
2
16 = 2^4 значит символ веси 4 бит
Вес текста = 384 * 4 бит = 1536.0 бит = 192.0 байт = 0.1875 Кбайт
mov ax,1
mov bx,ax
<span> mov cx,99
</span><span>a: add ax,2
add bx,ax
cmp ax,cx
</span><span> jne a
mov ax,bx
</span><span> mov bl,10
</span><span> mov cx,0
</span><span>b: div bl ; в ah - частное, al - остаток
</span><span> add al,48 ; в al - код младшей цифры
</span><span> push al
</span><span> inc cx
</span><span> cmp ah,0
</span><span> jne b
</span><span> ; вывод на экран через BIOS
</span><span>c: mov ah, 0eh
</span><span> pop al
</span><span> int 10h ; вывод символа
</span><span> dec cx
</span><span> jnz c
</span><span> ; завершение программы
</span><span> mov ah, 4ch
</span><span> mov al,00h
</span><span> int 21h
</span><span>
</span>