Решение на 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) ).
1 шаг:
A := 29
B := 11
2 шаг
A mod B = 0 //Нет
3 шаг
A := 29*11 //319
B := 319-7 //312
4 шаг
A = 319
B = 312
Объяснение:
mod - остаток от деления 29 mod 11 = 7