Очень Завтра нужно сдать, последний день! 1. Як визначити розмір вертикального відступу від тексту до границі рисунку? 2. Як визначити розмір горизонтального відступу від тексту до границі рисунку? 3. В чому полягає специфіка плаваючого вирівнювання рисунків? 4. Навіщо потрібно записувати альтернативний текст при визначенні рисунків? 5. Навіщо потрібні мініатюри при визначенні рисунків? 6. Як вирівняти рисунок по верхньому краю рядка? 7. В чому полягає різниця між вирівнюванням рисунку bottom та absbottom? 8. В чому полягає різниця між вирівнюванням рисунку absmiddle та middle? 9. В чому полягає різниця між вирівнюванням рисунку texttop та top? 10. Як визначити товщину границі рисунка?

Могу подсказать только 1 вариант:

Объяснение:

Module Module1

   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("Точка не принадлежит области")

       Console.ReadKey()

   End Sub

End Module

пишем имя программы

Program:chetre;

вводим переменные. для ввода переменных в программе используется тег <var> , который нужен для выделения переменных компьютерных программ

Var

n,i:

после ввода переменных ставим двоеточие и вводим тип данных ,в данном случае это целое или на языке паскаль integer

Var

n,i: integer;

теперь пишем начало

Begin

введём переменную n

Write('n = ');Read(n);

теперь присваиваем  значение переменной i

i:=0;

дальше вы наверное всё поймёте

if n div 1000 = n mod 10 then i:=i+1;

if (n mod 10 = (n div 10) mod 10) then i:=i+1;

n:=n div 10;

if (n mod 10 = (n div 10) mod 10) then i:=i+1;

n:=n div 10;

if (n mod 10 = (n div 10) mod 10) then i:=i+1;

n:=n div 10;

if i=1 then Write('Верно')

else Write('Не верно')

End.

вот полная программа без всяких вставок

Рrogram:chetre;

Var

n,i:integer;

Begin

Write('n = ');Read(n);

i:=0;

if n div 1000 = n mod 10 then i:=i+1;

if (n mod 10 = (n div 10) mod 10) then i:=i+1;

n:=n div 10;

if (n mod 10 = (n div 10) mod 10) then i:=i+1;

n:=n div 10;

if (n mod 10 = (n div 10) mod 10) then i:=i+1;

n:=n div 10;

if i=1 then Write('Верно')

else Write('Не верно')

End.