Viết chương trình tính tổng bình phương 10 số tự nhiên đầu tiên: vd: S=12+ 22+32+.......+102

2 câu trả lời

Program FNG;
Uses crt;
Var i,s: longint;
Begin
        Clrscr;
        s:=0;
        For i:=1 to 10 do
                s:=s+sqr(i);
        Write('S = ',s);
        Readln
End.

Uses crt;
Var i,s: longint;
Begin
        Clrscr;
        s:=0;
        For i:=1 to 10 do
                s:=s+sqr(i);
        Write('tong = ',s);
        Readln;
End.