PascalABC.NET
begin
var (N,Sum) := (ReadInteger,0);
for var i := 1 to N do
Sum +=sqr(i) ;
Print(Sum)
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
PascalABC.NET
begin
var (N,Sum) := (ReadInteger,0);
for var i := 1 to N do
Sum +=sqr(i) ;
Print(Sum)
end.