Решение на VB.NET: Const SIZE As Integer = 4 Dim a, sum As Integer a = Console.ReadLine() sum = a Dim n(SIZE) As Integer For i = 1 To SIZE n(i) = a Mod 10 a \= 10 Next For i = 1 To SIZE For j = i + 1 To SIZE If n(i) > n(j) Then Dim t As Integer t = n(i) n(i) = n(j) n(j) = t ElseIf n(i) = n(j) Then Console.WriteLine("Ошибка") Exit Sub End If Next Next For i = 1 To SIZE sum += (n(i) + n(SIZE - i + 1)) * 10 ^ (i - 1) Next Console.WriteLine(sum) Console.ReadKey()
Свойства алгоритма: 1. Дискретность. Это свойство состоит в том, что алгоритм должен представлять процесс решения задачи как последовательное выполнение простых шагов. При этом для выполнения каждого шага алгоритма требуется конечный отрезок времени, т. е. преобразование исходных данных в результат осуществляется во времени дискретно.
2. Определенность. Каждое правило алгоритма должно быть четким, однозначным.
3. Результативность. Алгоритм должен приводить к решению за конечное число шагов.
4. Массовость. Алгоритм решения задачи разрабатывается в общем виде, т. е. он должен быть применим для некоторого класса задач, различающихся лишь исходными данными.
5. Правильность. Алгоритм правильный, если его выполнение дает правильные результаты решения поставленной задачи.
Эта фраза означает: момент, когда нет условия выхода из цикла или используется вечный цикл (например, while(true) ).
Const SIZE As Integer = 4
Dim a, sum As Integer
a = Console.ReadLine()
sum = a
Dim n(SIZE) As Integer
For i = 1 To SIZE
n(i) = a Mod 10
a \= 10
Next
For i = 1 To SIZE
For j = i + 1 To SIZE
If n(i) > n(j) Then
Dim t As Integer
t = n(i)
n(i) = n(j)
n(j) = t
ElseIf n(i) = n(j) Then
Console.WriteLine("Ошибка")
Exit Sub
End If
Next
Next
For i = 1 To SIZE
sum += (n(i) + n(SIZE - i + 1)) * 10 ^ (i - 1)
Next
Console.WriteLine(sum)
Console.ReadKey()
1. Дискретность. Это свойство состоит в том, что алгоритм должен представлять процесс решения задачи как последовательное выполнение простых шагов. При этом для выполнения каждого шага алгоритма требуется конечный отрезок времени, т. е. преобразование исходных данных в результат осуществляется во времени дискретно.
2. Определенность. Каждое правило алгоритма должно быть четким, однозначным.
3. Результативность. Алгоритм должен приводить к решению за конечное число шагов.
4. Массовость. Алгоритм решения задачи разрабатывается в общем виде, т. е. он должен быть применим для некоторого класса задач, различающихся лишь исходными данными.
5. Правильность. Алгоритм правильный, если его выполнение дает правильные результаты решения поставленной задачи.
Эта фраза означает: момент, когда нет условия выхода из цикла или используется вечный цикл (например, while(true) ).