Question

Viết phương trình tính tổng bình Phương n số nguyên đầu tiên. in kết quả ra màn hình

Answer 1

program viet_chuong_trinh;

uses crt;

var

i,n,S:integer;

begin

clrscr;

writeln('Moi nhap n = '); readln(n);

S:=0;

for i:=1 to n do S:=S + (i*i);

write(S); readln;

end.

Answer 2

program viet_chuong_trinh;

uses crt;

var i,n,S:integer;

begin

clrscr;

writeln('nhap n = '); readln(n);

S:=0;

for i:=1 to n do

S:=S + sqr(i);

writeln(S);

readln;

end.