Приветствую помогите с данной задачей.Условие - Составьте программку которая учитывает все
Приветствую помогите с данной задачей.
Условие - Составьте программку которая учитывает все варианты, все числа в четырехзначном числе,положении возрастания потом в порядке убывания и выводит в качестве результата сумму 3 чисел(Изначальное число, число с цифрами по возрастанию, число с цифрами по убыванию).Числа в числе не должны быть одинаковы, если же они равны,то "WriteLn('Ошибка');"
Данные:
Входные 2576.
Выходные 12756.
Начало я теснее написал, основная неувязка с условиями.
Program Test;
Var a,a1,a2,a3,a4,b,c:integer;
Begin
ReadLn(a);
a1:=a div 1000;
a2:=a div 100 mod 10;
a3:=a div 10 mod 10;
a4:= a mod 10;
if (a1=a2) or (a2=a3) or (a2=a4) or (a1=a3) or (a1=a4) or (a3=a4) then WriteLn('Ошибка')
else ...
Буду признателен всем представленным решениям и советам.
Спасибо
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) gt; 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()
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.