Viết chương trình tính tổng S=12+22+32+…+n2 Với n là số nguyên dương được nhập vào từ bàn phím
2 câu trả lời
Program baitap;
Uses crt;
Var n,i:integer;
S:longint;
Begin
Clrscr;
S:=0;
Write('n='); Readln(n);
For i:=1 to n do S:=S+i*i;
Writeln('S=',S);
Readln
End.
uses crt;
var n,s,i:longint;
begin
clrscr;
write('nhap n:');readln(n);
s:=1;
for i:=1 to n do s:=s+sqr(i);
write('s=',s);
readln
end.
Câu hỏi trong lớp
Xem thêm
