Программа паскаль.
, !
дано натуральное число. определить число полученное перестановкой разрядов десятков и единиц исходного числа. ​

1.

Инструменты по умолчанию находятся в левой области программы. Убрать/Добавить окно с Инструментами можно нажав Window > Tools

2.

1 ) Номер монтажной области можно выбрать в раскрывающимся списке Artboard Navigation в левом нижнем углу документа.

2) Так же можно использовать расположенные в левом нижнем углу кнопки навигации по монтажным областям ( Next, Previous, First, Last ).

3) Перейти к монтажной области можно выполнив двойной щелчок по имени монтажной области на палитре Artboards, или используя палитру Navigator.

3.

Чтобы сохранить положения панелей/параметры отображения, необходимо нажать Window > Workspace > Save Workspace.

4.

Упорядочивание окон документа может быть полезно при работе с несколькими файлами и необходимости выполнять сравнение содержимого файлов или обмен содержимым между файлами.

На Visual Basic так:

Нужно на форме создать текстовое поле TextBox1 и кнопку Button1, на нее повесить такую программу:

Sub Button1_Click()

Dim A() As Integer, B() As Integer, C()  As Integer ' динамич. массивы

Dim n As Integer, i As Integer, Txt As String

n = InputBox ("Введите размер массивов")

ReDim A(n), B(n), C(n) ' Определяем размеры массивов

Txt = ""

For  i = 1 To n

A(i) = InputBox ("Введите " & i & "-ый элемент массива A")

B(i) = InputBox ("Введите " & i & "-ый элемент массива B")

C(i) = A(i)^2 + B(i)^2 ' Присваиваем элементу C(i) сумму квадратов

Txt = Txt & C(i) & "; " ' Добавляем C(i) в текстовую переменную

Next i

TextBox1.Text = Txt ' Выводим весь массив C(i) в текстовое поле

End Sub