1)Найти творенье натуральных чисел от f до 11 (famp;lt;11)2)Найти сумму естественных

1)Найти творение натуральных чисел от f до 11 (flt;11)
2)Отыскать сумму естественных чисел от 21 до D


Решите правильно,добавлю ещё баллов

Задать свой вопрос
1 ответ

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

1)

begin

 ReadInteger('f=').To(11).Aggregate(1, (p, q)-gt; p * q).Println

end.

f= 5

1663200

2)

begin

 21.To(ReadInteger('D=')).Sum.Println

end.

D= 56

1386

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

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

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт