Question

cho s=1^2+2^2+...+n^2. với n là 1 số tự nhiên được nhập từ bàn phím. Hãy viết điều kiện lặp, công việc lặp sau do cho lệnh while để tính tổng S trên

Answer 1

Uses Crt;

Var i,S,n:integer;

Begin

Clrscr;

Readln(i,S,n);

For i:=1 to n do S:=S+i*i;

Write(S);

Readln

End.

Answer 2

uses crt;

var s,i,n:longint;

begin

clrscr;

readln(n);

s:=0;

i:=1;

while i<=n do

 begin

s:=s+i*i;

i:=i+1;

end;

writeln(s);

readln;

end.