<em>// PascalABC.NET 3.3, сборка 1633 от 10.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),0,15); a.Println;
a.Where(t->t>a.First).Println
end.
<u>Пример</u>
n= 15
8 8 9 3 5 10 12 4 1 8 8 6 13 7 6
9 10 12 13
Проведем упрощения.
Оба выражения свелись к одному и тому же. Его функциональная схема дана во вложении.
<h3>Алгоритм решения</h3>
Выводим через пробел все числа от b-1 до a+1. В цикле вывода можем считать количество таких чисел, а можем воспользоваться формулой (b-a = кол-во целых чисел от a до b-1 или от a+1 до b).
<h3>Код</h3>
#include <bits/stdc++.h>
using namespace std;
int main() {
int a, b;
cin >> a >> b;
for (int i = b-1; i > a; --i)
cout << i << " ";
cout << endl << (b-a-1) << endl;
return 0;
}
---------------------
Файл решения прикреплён.