Увеличения? начиная с windows vista (windows 7) - восмикратное(800%), до vista (XP и ниже) - 10х (если нажать чуть выше значка 8х)
<span>Шрифт
Размер шрифта
Полужирный
Курсив
Подчеркнутый
___
Выровнять:
</span>По левому краю
<span>По центру
По правому краю
__
</span>Нумерация
Переводим оба числа в десятичную, делим. Получаем дробь меньше нуля, переводим в 16-ю. Получаем бесконечную периодическую дробь 0.(С8253)16 Первая цифра после запятой С. Думаю так.
Sub Main() Dim x As Single Dim y As Single
Console.WriteLine("Введите координаты точки x ") x = Console.ReadLine() Console.WriteLine("Введите координаты точки y ") y = Console.ReadLine() If (x <= 4 And y <= 4 And y >= 4 - x) Or (y <= -4 - x And y >= -4 And x >= -4) Then Console.WriteLine("Точка принадлежит области") Else Console.WriteLine("Точка не принадлежит области") End If Console.ReadKey() End Sub
Var
st: string;
i: byte;
sum: integer;
begin
st := 'БАЙТ';
for i:=1 to Length(st) do sum:=sum+ord(st[i]);
Writeln('Сумма кодов букв в слове БАЙТ = ', sum);
end.<span>
</span>