решитьс подпрограммы следующие уравнения​(В Паскале)

#include <iostream>

using namespace std;

int main() {

   int n, a, b, c, s = 0;

   cin >> a >> b >> c >> n;

   for (int na = 0; na <= n / a; na++) {

       for (int nb = 0; nb <= (n - a * na) / b; nb++) {

           int kk = n - na * a - nb * b;

           if (kk >= 0 and kk % c == 0) s++;        

       }

   }

   cout << s << endl;

   for (int na = 0; na <= n / a; na++) {

       for (int nb = 0; nb <= (n - a * na) / b; nb++) {

           int ll = n - na * a - nb * b;

           if (ll >= 0 and ll % c == 0)

               cout << na << " " << nb << " " << ll / c << endl;

       }

   }

}

Объяснение:

Зашло на

a = int(input('Введите число А: '))

b = int(input('Введите число B: '))

if (a < b):

 for i in range(a, b + 1, 1):

   print(i, end=" ")

else:

 for i in range(a, b - 1, -1):

   print(i, end=" ")

Объяснение:

a = int(input('Введите число А: '))  # Вводим число A

b = int(input('Введите число B: '))  # Вводим число B

if (a < b):  # Если A < B

 for i in range(a, b + 1, 1):   # Идём от A до B [B не включительно, поэтому пишем B + 1] с шагом в 1

   print(i, end=" ")  # Выводим

else:

 for i in range(a, b - 1, -1):  # Идём от A до B [B не включительно, поэтому пишем B - 1] с шагом в -1

   print(i, end=" ") # Выводим