В Китайском языке более 50 000 букв-иероглифов, но чтобы уметь читать и писать вполне достаточно знать 5000 знаков.
Var
A:array[1..33] of integer;
i:integer;
Begin
For i:= 1 to 33 do
Begin
A[i]:=i*2-1;
Write(A[i],' ')
End;
End.
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>
1. Горизонтальной линейки
2.обычный-полужирный курсив-полужирный-курсив
3.второй символ
4.форматирование
5. 9 строк 8 столбцов