Есть два числа n, m. Нужно посчитать количество сум которые удоволетворяют условиям:
1) количество слагаемых не больше m
2) каждое из слагаемых не больше n, причем ноль считается за слагаемое, и слагаемые могут повторяться
3) например суммы 1+3+5 и 1+5+3 считаются идентичными
Я написал программу, но не уверен в том что она рабатает верно



Может ли кто-нибудь проверит эту прогу?

У тебя не совсем правильно считалось количество комбинаций... Если я не ошибаюсь - то вот так должно быть (я добавил и вывод самих комбинаций тоже):

var
  n,m:integer;
  sum:integer;

procedure ff(s: string; j, lev:integer);
var
  i: integer;

begin
  if lev <= m then begin
    writeln(s);
    inc(sum);
    for i:=j to n do
      ff(s+'+'+chr(ord('0') + i), i, lev+1);
  end;
end;

begin
  n := 2; m := 4;
  sum:=0;
  ff('', 0,0);
  writeln(sum);
end.

P.S. klem4, в той задаче нельзя было использовать одинаковые слагаемые, насколько я помню - а это меняет решение...

Большое спасибо!
P.S. на самом деле мое решение просто не учитывает решение вида 0+0+...+0.

Volvo, сегодня решил подумать над прогой еще чуть-чуть, и понял что правильно все-таки работает мой вариант, у тебя на примере m=2, n=2 выводиться ответ 10 вариантов, а самих вариантов выводиться 9

А первый - пустая строка? Забыл?

Надо просто НЕ учитывать ее, и

  writeln(sum - 1); { Делать вот так }

Да я просто к тому, что моя первая прога вроде работает верно!

Вот именно, что "вроде"... Ты же не видишь, КАКИЕ комбинации она подсчитывает... Вот если бы видел - тогда можно было сравнивать...