Задания на For (C++)

[digitalis]

Интересно наблюдать, как супер-элементарнейшая задачка вызвала такую оживлённую дисуссию.
По умолчанию, "правильным" 4-значным числом я бы считал начинающееся со значаще цифры, то-бишь 1000...9999 . Иначе получается неопредедённость. 123 - 3-значное число. А 0123 ?
Смеху ради - вот прога, считающее сумму не =15, а для всех возможных вариантов.

function sumdig (arg: integer) : integer ;
var i,j: integer ;
begin
  i := arg mod 100;
  j := arg div 100;
  Result := (i div 10) + (i mod 10)+ (j div 10) + (j mod 10) ;
end;

begin
  NS := 0 ;
  if Edit1.Text = '' then  nM := -1 else nM := StrToInt (Edit1.Text) ;
  for ntm := 1 to 36 do
    begin
       N := 0 ;
       for i := 1000 to 9999 do
         if sumdig(i) = ntm then
           begin
            Inc (N) ;
            if ntm = nM then Memo1.Lines.Add (Format ('%4d',[i]) )
           end;
       NS := NS + N ;
       Memo1.Lines.Add (Format ('%2d %3d %4d',[ntm,N,NS]) )
    end ;
end  ;

1 1 1
2 4 5
3 10 15
4 20 35
5 35 70
6 56 126
7 84 210
8 120 330
9 165 495
10 219 714
11 279 993
12 342 1335
13 405 1740
14 465 2205
15 519 2724
.................
36 1 9000

[WorldMaster]

Сообщение от digitalis

как супер-элементарнейшая задачка

А такие задачки всегда вызывают бурю эмоций у всех потому что они достаточно просты для широких масс. Решение системы диффуров в многомерном пространстве врядли будет многим понятно чтобы там о чем то спорить.

[digitalis]

Сообщение от WorldMaster

...достаточно просты для широких масс.

А из широких масс тут только я и ТС, остальные два - "зубры"