В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Мокааа585
Мокааа585
13.02.2022 17:34 •  Информатика

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

Ответ:
GenaTurboKrytt
GenaTurboKrytt
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.

0,0(0 оценок)
Ответ:
mayzernik
mayzernik
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

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?