Sử dụng vòng lặp While…do để viết chương trình tính tổng các số tự nhiên từ 1 đến N, với N được nhập từ bàn phím. GIÚP MIK VS!!!
Sử dụng vòng lặp While…do để viết chương trình tính tổng các số tự nhiên từ 1 đến N, với N được nhập từ bàn phím. GIÚP MIK VS!!!
By Eliza
program tinh_tong;
uses crt;
var n,i,t:integer;
begin
clrscr;
write(‘Nhap N: ‘); readln(n);
t:=0; i:=1;
while i<=n do
begin
t:=t+i;
i:=i+1;
end;
write(‘Tong cac so tu nhien tu 1 den ‘,n,’ la: ‘,t);
readln;
end.
Uses Crt;
Var a,b,n:longint;
Begin
Clrscr;
Write(‘Nhap n=’); Readln(n);
a:=0; b:=0;
While a<b do
Begin
b:=b+a;
a:=a+1;
End;
Write(‘Tong cac stn tu 1 den ‘,n,’ la:’,b);
Readln
End.