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.
Câu hỏi trong lớp
Xem thêm