Viết chương trình nhập số n bất kì từ bàn phím.
Tính tổng S= 1^2 +2^2+…+n^2
In tổng ra màn hình
VD: nhập n=5
S= 1^2+2^2+…+5^2
Viết chương trình nhập số n bất kì từ bàn phím.
Tính tổng S= 1^2 +2^2+…+n^2
In tổng ra màn hình
VD: nhập n=5
S= 1^2+2^2+…+5^2
đây bạn
program tong_S;
uses crt;
var n,i:integer;
S:longint;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
S:=0;
for i:=1 to n do
S:=S+i*i;
write(‘S= ‘,s);
readln;
end.