В столовой имеются 25 блюд. Сколькими способами

+ 0 -

Vladimirsurkow

31 июля 2013 г., 6:11:05 (10 лет назад)

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 штуки (если по одному блюду на завтрак, обед и ужин), то блюд:)