Сданной . условие - составьте программу которая учитывает все варианты, все цифры в четырехзначном числе,положении возрастания затем в порядке убывания и выводит в качестве результата сумму 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 буду всем представленным решениям и советам.

Решение на 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()

var x, s: real;

  n: integer;

begin

  read(x, n);

  s : = 0.0;

  for var i : = 1 to n do

    s += i * sin(x);

  write(s)

end.