: Viết chương trình tính tổng số nguyên từ 1-n, n là số nguyên nhập từ bàn phím. Sử dụng vòng lặp while… do
giúp mik nha
: Viết chương trình tính tổng số nguyên từ 1-n, n là số nguyên nhập từ bàn phím. Sử dụng vòng lặp while… do giúp mik nha
By Rose
progam tinhtong;
uses crt;
var n,i:integer;
s:longint;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
s:=0; i:=1;
while i<=n-1 do
begin
s:=s+i;
i:=i+1;
end;
write(‘Tong cac so tu 1 den ‘,n-1,’ la: ‘,s);
readln
end.
1.Program tinhtong;
var: i,s:=longint;
Begin
i:=-1;
While i<n do
Begin
i:=i+2;
S:=S+i;
End;
readln;