Составить программу
Найти сумму кубов чисел от одного до n, где n вводится с клавиатурой
Сроочно, даю 20 баллов
Ответы на вопрос
Ответил Аноним
0
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
SeqGen(ReadInteger('n='),t->t*t*t,1).Sum.Println
end.
Пример
n= 10
3025
Внимание! Если программа не работает, обновите версию!
begin
SeqGen(ReadInteger('n='),t->t*t*t,1).Sum.Println
end.
Пример
n= 10
3025
Новые вопросы
Английский язык,
2 года назад
Українська мова,
2 года назад
География,
8 лет назад
Алгебра,
9 лет назад
Алгебра,
9 лет назад