Регистрация
Войти
Стать экспертом Правила
Информатика

Напишите программу, которая вычисляет сумму:а) первых n натуральных чисел;б) квадратов первых n натуральных чисел;

ОТВЕТЫ
a) begin write(seqgen(readinteger(), x -> x + 1, 0).Sum); end.
б) begin write(seqgen(readinteger(), x -> x * x, 1).Sum); end.
150
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам