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 )

0 bình luận về “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 )”

1. 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.

   Bình luận

2. 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.

   Bình luận