Question

составьте программу нахождения произведение всех целых чисел от C до D, используя цикл с параметрами.​

Answer 1

Ответ:

• var i,C,D: integer; p:BigInteger;
• begin
• p := 1;
• read(C,D);
• for i := C to D do
• p := p*i;
• write(p);
• end.

Пример работы: