viết chương trình tính tổng cÁc số từ 1 đến 100 , vớI n nhập từ bÀn phím ? ( sử dụng while ... do )

Sử dụng For.. do: Var i,

S:integer;

Begin For i:= 1 to 100 do If i mod 2 = 0 then S:= S+i; Writeln(' tong cac so chan

:',S); Readln; end. Sử dụng While ..do: Var i,S:integer

; Begin i:=0; While i<=100 do If i mod 2 = 0 then S:= S+i; Writeln(' tong cac so chan :',S);

Readln

; end.

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.