Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

ВЫЧИСЛИТЬ СУММУ КВАДРАТОВ ВСЕХ ЦЕЛЫХ ЧИСЕЛ МЕНЬШИХ ЗАДАННОГО ЧИСЛА А.А=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