Составить программу в Паскаль. Вывести ** экран произведение первых 20-ти натуральных...

Question

Составить программу в Паскаль. Вывести на экран произведение первых 20-ти натуральных чисел.
Очень нужно. Заранее спасибо!)

Answer 1

Типа double должно хватить под это все дело.

В целочисленные типы такое число, увы, не влезет.

var

   i:integer;

   result:double;

begin

   result := 1;

   for i := 2 to 20 do

       result := result * i;

   writeln('Результат = ', result);

end.

Answer 2

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

begin

 Range(1,20).Aggregate(biginteger(1),(p,x) -> p*x).Println;

end.

Ответ =  2432902008176640000

Comments

Всего 3 строки..

---

1, операторные скобки это такое)

---

20.Range.Aggregate ... - короче

---

А так все четко, стандартная свертка.

---

Browse: да, всего три. А по факту - один исполняемый оператор. Такой вот язык.

---

browZe)))

---

В Вашем профиле написано Browze ))

---

там z, а не s, как выше вы написали)

---

Точно, извиняюсь, неправ был

---

Да ладно, вы не первый))