Разработка циклических алгоритмов (Делфи)

[gjkg]

Определить k - количество трехзначных натуральных чисел, сумма цифр которых равна n (1<=n<=27). Операции (/, div и mod) не использовать.

[BDA]

Первое, что приходит в голову, 3 вложенных друг в друга цикла. Внешний от 1 до 9. Внутренние от 0 до 9. Внутри самого глубокого цикла проверка на то, что сумма счетчиков всех циклов равна n, и увеличение k. В принципе, можно придумать что-нибудь более изящное

[Serge_Bliznykov]

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

Первое, что приходит в голову, 3 вложенных друг в друга цикла. Внешний от 1 до 9. Внутренние от 0 до 9. Внутри самого глубокого цикла проверка на то, что сумма счетчиков всех циклов равна n, и увеличение k. В принципе, можно придумать что-нибудь более изящное

я бы так и делал!
и, на мой взгляд, ничего проще и изящнее и не будет!
Да и зачем, что "неизящного" в трёх вложенных циклах ?!!
(вопрос риторический )

[Аватар]

Навряд-ли проще, но изящнее и без всяких делений

    j:=137;  //исходное число - от 0 до 999, иначе полный абзац
    for k:=1 to 9 do begin
      j:=j shl 1;
      if ((j and $3C00) shr 10)>4 then j:=(j and $3FC3FF) or ((((j and $3C00) shr 10)+3) shl 10);
      if ((j and $3C000) shr 14)>4 then j:=(j and $3FC3FFF) or ((((j and $3C000) shr 14)+3) shl 14);
      if ((j and $3C0000) shr 18)>4 then j:=(j and $3FC3FFFF) or ((((j and $3C0000) shr 18)+3) shl 18);
    end;
    j:=j shl 1;
    //искомая сумма
    n:=((j and $3C0000) shr 18)+((j and $3C000) shr 14)+((j and $3C00) shr 10);

[DiemonStar]

хватит двух циклов, по-сути:

K := 0;
M := N;
If N > 9 Then M := 9;
For I := 1 To M do
  begin
    If N - I > 9 Then L := 9 Else L := N-I;
    For J := 0 To L do
     If N - I - J< 10 Then
       K := K + I*99 + J *9 + N;
  end;

хотя можно и от нижней границы во втором цикле уйти, рассчитав ее заранее.

[Аватар]

Я так полагаю n от 1 до 27 задается. Иначе какой смысл?