Войти Регистрация Спроси ai-bota

Найдите произведение целых чисел от 20 до 40.

Показать ответ

Ответ:

vikakotova3

06.10.2020 13:31

// PascalABC.NET 3.2, сборка 1483 от 14.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
Writeln('П=',20.to(40).Aggregate(BigInteger(1),(x,y)->x*y))
end.

Результат
П=6707341935727141628215296000000

0,0(0 оценок)

Ответ:

HGRM

06.10.2020 13:31

Var
   P:real;
   i:integer;
Begin
P:=1;
For i:= 20 to 40 do
    P:=P*i;
WriteLn('P = ',P)
End.

P = 6.70734193572714E+30

0,0(0 оценок)

Популярные вопросы: Информатика

nikrozumenko

22.11.2021 15:03

Запишіть команду пристосування, яка: а) збільшить значення змінної на 12, б) зменшить значення змінної на 2. в) помножить значення змінної на 4. г) змінить значення...

popova2017

10.06.2022 00:19

Указаны пути от корневого каталога к некоторым файлам, хранящимся на логическом диске. Заглавными буквами обозначены имена каталогов, строчными – имена файлов: E:\COUNTRU\USA\INFO\culture.txt;...

radkov02p08713

14.07.2021 08:33

Из 20 целочисленных значений состоит одномерный массив:...

КсенияБыкК

14.07.2021 08:33

По информатике : снять рекламу на любую тему) придумать про что снять рекламу )...

мариана24

15.01.2020 10:13

Выполнить по информатике 2 кл. сделай из волка козу. волк коза. вместо пропусков слова....

Емсимася

15.01.2020 10:13

Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа n. проверьте алгоритм трассировкой. напишите программу на...

gona1

08.06.2022 13:29

Дано целое число n и действительные числа . определить количество членов последовательности, являющихся нечётными....

okda2

08.06.2022 13:29

Уисполнителя калькулятор две команды : 1. прибавь 1. 2. прибавь 2. первая из них увеличивает число на экране на 1 , вторая --на 2. сколько различных чисел можно...

Арти1234567890

23.01.2021 04:59

Напишите программу увеличивающую каждый элемент матрицы (n,m) в 3 раза и сохраняющую результат в виде второй матрицы...

diassultanov1

24.02.2022 03:10

Даны два целых числа. определить, какое из них больше или определить их равенство. вывести знак если первое число больше, знак если второе число больше, знак = если...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку