program r;
var a:longint; i:byte;begina:=0;for i:=1 to 100 do a:=a+sqr(i);writeln(a);end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program r;
var a:longint;
i:byte;
begin
a:=0;
for i:=1 to 100 do a:=a+sqr(i);
writeln(a);
end.