Помогите ** языке программирования Pascal нужно написать код благодаря, которому...

Question

Помогите на языке программирования Pascal нужно написать код благодаря, которому пользователь вводит число N и затем N чисел и программа должна посчитать произведение этих чисел.

Comments

Числа начинаются от единицы?

---

Например N = 5X = 1 * 2 * 3 * 4 * 5

---

Любое число которое введет пользователь, кроме единицы.

---

Если верхняя граница N не определена, то решение будет не таким простым, как это может показаться.

---

Задача школьная и в задании не было обращено никакого внимания на границы значения N. Скорее всего программа не будет использоваться для больших вычислений.

---

Если будут введены большие значения N, то можно заменить тип переменных на int64 или изменить цикл for на while со счётчиком и изменить тип переменных на real

---

Но написать программу под любое значение N не получится, т.к. у всех типов есть границы

---

Задача нахождения факториала большого числа - это классика. :-) Задача решаемая и по своему интересная. Вопрос только в том, действительно-ли была поставлена именно эта задача, или фраза "Любое число которое введет пользователь, кроме единицы" - это преувеличение?

Answer 1

program raf105;

var n,i,pro: integer;

begin

write('N = ');

readln(n);

pro:= 1;

for i:=1 to n do

begin

 write(i,' ');

 pro:= pro * i;

end;

writeln;

writeln('Произведение: ',pro);

end.

PascalABC 3.4.2

Comments

Для небольших значений N - сойдет. Но с любым числом N это работать не будет. Все упрется в классическую задачу написания программы для вычисления факториала числа 100.