Составте программу вычисления произведения чисел в диапозоне от 1до 10 1*2*3*4**10

Program fac;     var n: integer; function fact(n: integer): integer; begin if n=1 then fact: =1             else fact: =fact(n-1)*n; end; begin write('vvedi chislo: '); // число 10 )) readln(n); n: =fact(n); writeln('otvet: ', n); read; end .

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

 

что то вроде такого)

всегда брать столько чтоб спичек на столе оставалось четное

количество  и при этом не делилось на 3

т.е. 4,8,12