ВЫЧИСЛИТЬ СУММУ КВАДРАТОВ ВСЕХ ЦЕЛЫХ ЧИСЕЛ МЕНЬШИХ ЗАДАННОГО ЧИСЛА А.А=40 паскаль !помогите пожалуйста
ВЫЧИСЛИТЬ СУММУ КВАДРАТОВ ВСЕХ ЦЕЛЫХ ЧИСЕЛ МЕНЬШИХ ЗАДАННОГО ЧИСЛА А.А=40
паскаль !помогите пожалуйста
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.0, сборка 1088
begin
var n:=ReadInteger('Введите число n: ');
Writeln('Сумма квадратов чисел от 1 до ',n-1,' равна ',
Range(1,n-1).Select(x->x*x).Sum)
end.
Тестовое решение:
Введите число n: 40
Сумма квадратов чисел от 1 до 39 равна 20540
Не нашли ответ?
Похожие вопросы