Tính tổng từ 1 đến 100 sao còn nhập n .-. Hay là nhập $n=100$
.-. Bạn tham khảo nha.Nếu có thay đổi gì về đề thì cmt giúp mình
Program Hotboy
Uses crt;
Var s,i,n : longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=0; i:=1;
While i<=n do
Begin
s:=s+i; i:=i+1;
End;
Writeln('tong tu 1 den n la',S);
Readln
End.