Question

Nhập vào số nguyên dương N. viết chương trình tính tổng của biểu thức sau: S=1+4+9+16+...+N²

Answer 1

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do

s:=s+i*i;

write(s);

readln;

end.

Answer 2

uses crt;

var n,i,s:integer;

begin

Write('Nhap n = '); readln(n);

s:=0;

for i:=1 to n do

s:=s+i*i;

write(s);

readln;

end.