видоизменить сортировку вставкой. У меня есть такой код:
var
a: array[1..10000] of Word;
i, j, t: LongInt;
begin
for i := 2 to n do begin
t := a[i];
j := 1;
while a[j] < t do
Inc (j);
{
for k := i downto j + 1 do
a[k] := a[k - 1];
}
a[j] := t
end.
Так вот, нужно заменить закомментированную часть кода функцией Move
Dim a As Integer
Dim b As Integer
Dim i As Integer
a = InputBox("Введите а")
b = InputBox("Введите b")
Dim msg As String
msg = ""
For i = a To b
msg = msg & 3 в степени " & i & " равно " & 3 ^ i & vbCrLf
Next
MsgBox(msg)
2)Найти все делители числа 1204.
Dim i As Integer
Dim msg As String
msg = ""
For i = 1 To 1204
If 1204 Mod i = 0 Then
msg = msg & "Число " & i & " является делителем 1204." & vbCrLf End If
Next
MsgBox(msg)