Viết chương trình tính tổng của các sống chẵn từ 1–>N vs N là số nguyên đc nhập từ bàn phím (‘làm theo cách while do nha) Giúp mình vs

0 bình luận về “Viết chương trình tính tổng của các sống chẵn từ 1–>N vs N là số nguyên đc nhập từ bàn phím (‘làm theo cách while do nha) Giúp mình vs”

1. program tong_chan;

   uses crt;

   var n,i,t:integer;

   begin

          clrscr;

          write(‘Nhap so nguyen N: ‘);  readln(n);

          t:=0;  i:=2;

          while i<=n do

                 begin

                        t:=t+i;

                        i:=i+2;

                 end;

          write(‘Tong cac so chan tu 1 den ‘,n,’ la: ‘,t);

          readln;

   end.

   Bình luận

2. uses crt;

   var i,n,t:integer;

   begin

            clrscr;

            readln(n);

            i:=2;t:=0;

            while i<=n do

                     begin   

                              t:=t+i;

                              i:=i+2;

                     end;

            writeln(t);

   readln;

   end.

   Bình luận