14. Viết chương trình tính tổng: S= 1+2+3+…+n với n là số tự nhiên được nhập từ bàn phím bằng cách sử dụng câu lệnh lặp While … do. Mình cảm ơn nhiềuuu
14. Viết chương trình tính tổng: S= 1+2+3+…+n với n là số tự nhiên được nhập từ bàn phím bằng cách sử dụng câu lệnh lặp While … do. Mình cảm ơn nhiềuuu
var s,n,i:longint;
begin
write(‘Nhap n: ‘); readln(n);
while i<n do
begin
inc(i);
s:=s+i;
end;
write(‘s= ‘,s);
readln
end.
var i,n: integer;
s:longint;
begin
write(‘nhap so n=’);readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i; i:=i+1;
end;
write(‘tong cua’,n,’ so tu nhien dau tien la’,s);
readln
end.