Нужна . программа в pascal недавно петя научился считать. он тут же заметил, что число 2 обладает замечательным свойством - 2 + 2 = 2 × 2. его старший брат ваня тут же объяснил ему, что дело не в двойке. "дело в том, что последовательность 2, 2 - волшебная," - сказал пете ваня. - "волшебная последовательность - это такая последовательность натуральных чисел, что сумма ее членов равна их произведению. например последовательность 1, 2, 3 - тоже волшебная." петя тут же сложил 1, 2 и 3, потом перемножил их и обрадовался. теперь петя хочет найти более длинные волшебные последовательности. ему!

Нет решений не  знаю короче вот код для 5 чисел(для 4 чисел я уже проверил)             program gt; var a,b,c,d,e: integer; begin for a: =1 to 50 do for b: =a+1 to 50 do for c: =b+1 to 50 do for d: =c+1 to 50 do for e: =d+1 to 50 do if(a+b+c+d+e=a*b*c*d*e)then writeln(a,' ',b,' ',c,' ',d,' ',e); end.если числа могут повторятся то ответов много пример: 5 2 1 1 1

составим двоичную матрицу:

                        молоко       лимонад         квас                   вода

бутылка               0                   1                 0                     0

стакан                 0                   0                 0                     1

кувшин                 1                   0                 0                     0        

банка                   0                   0                 1                     0

 

в кувшине - молоко

в бутылке - лимонад

в банке - квас

в стакане - вода

 

 

389 365 402 201

триста восемьдесят девять миллиардов триста шестьдесят пять миллионов четыреста две тысячи двести один