sử dụng vòng lập không xác định, viết chương trình tính tổng các số chẵn từ 1đến100

0 bình luận về “sử dụng vòng lập không xác định, viết chương trình tính tổng các số chẵn từ 1đến100”

1. Program Hotboy;

   Uses crt;

   Var S,i: integer;

   Begin

   Clrscr;

   S:=0; i:=1;

   While i<=100 do

   If (i mod 2=0) then 

   S:=S+i;

   Write(‘tong chan tu `1` den `100` la’,S);

   Readln

   End.

   Bình luận

2. Program Tongchan;

   Uses crt;

   Var S,i: integer;

   Begin

   Clrscr;

   S:=0; i:=1;

   While i<=100 do

   If (i mod 2=0) then 

   S:=S+i;

   Write(‘tong chan la’,S);

   Readln

   End.

   Bình luận