Question

В столовой имеются 25 блюд. Сколькими способами
главный повар может выбрать блюда на завтрак, обед и ужин? Выведите все
возможные варианты их количество.

Answer 1

Var
   i, j, o, n: integer;
begin
     n := 1;
     for i := 1 to 25 do
         for j := 1 to 25 do
             for o := 1 to 25 do
             begin
                  writeln(n, ':   ', i, ' ', j, ' ', o);
                  inc(n);
             end;
end.

Это всё выведет (можете массив сделать из названий блюд, но 25 я не придумаю), а количество можно так посчитать: 25 блюд по 3 штуки (если по одному блюду на завтрак, обед и ужин), то $25^3=</span>15625$ блюд:)