Даны два целых числа a и b (a < b вывести в порядке убывания все целые числа, расположенные между a и b (не включая числа a и b), а также количество n этих чисел.

Var a,b,k: integer; begin readln(a.b); {вводить числа по условию a< b} for b< > a do begin b: =b-1; inc(k); writeln(b); end; writeln('количество = ',k); readln; end.

Первые две, так как третяя не понятная, вторая может быть не верно понята sub num2()       s = 0       dim a       k = cint(inputbox("k ="))       n = cint(inputbox("n ="))       redim a(n - 1)       for i = 0 to n - 1               a(i) = cint(inputbox("a(" & i & ") ="))               if a(i) mod k = 0 then s = s + a(i)       next       msgbox s end sub sub num1()       i = 0       e = cdbl(inputbox("e ="))       do while i < = e               i = i + sqr(2)       loop       msgbox "i = " & i end sub

Const       n = 10; var       i, s: integer;       a, b: array[1..n] of integer; begin       for i : = 1 to n do       begin               a[i] : = random(17 + 15) - 17;               write(a[i], ' ');               if a[i] < 0 then                       s : = s + a[i];       end;       writeln();       writeln(s); end.