Viết chương trình tính tống=2+4+6+…+n với n nhập từ bàn phím

0 bình luận về “Viết chương trình tính tống=2+4+6+…+n với n nhập từ bàn phím”

1. Program HuynhDucNhatDeThuongQuaDiA;
   Uses crt;
   Var n,i,HuynhDucNhat: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           HuynhDucNhat:=0;
           i:=0;
           While i<=n do
           Begin
                   HuynhDucNhat:=HuynhDucNhat+i;
                   inc(i,2);
           End;
           Write(HuynhDucNhat);
           Readln
   End.

   ——————-

   Yêu các bạn moahhhh :*

   Mèo méo meo mèo meo ~

   Bình luận

2. Program tinh_tong;

   Uses crt;

   Var i,S,n: integer;

   Begin 

   Write (‘Nhap n=’);

   Readln (n);

   S:=0;

   For i:=1 to n do

   If i mod 2= 0 then 

   S:=S +i;

   Writeln (‘Tong can tim la:’,S);

   Readln

   End.

   Bình luận