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

ледяннойкристалл ледяннойкристалл    1   28.09.2019 03:30    0

Ответы
artem759342 artem759342  08.10.2020 23:50

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

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

var

   i:integer;

   result:double;

begin

   result := 1;

   for i := 2 to 20 do

       result := result * i;

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

end.

ПОКАЗАТЬ ОТВЕТЫ
neannopad7 neannopad7  08.10.2020 23:50

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


begin

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

end.


ответ =  2432902008176640000

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика