Tính tổng các số chẵn nhỏ hơn hoặc bằng n

0 bình luận về “Tính tổng các số chẵn nhỏ hơn hoặc bằng n”

1. Program BTH;
   uses crt;
   var s,i,n:longint;
   Begin
           clrscr;
           write(‘Nhap n: ‘);readln(n);
           For i:=1 to n do
                   If i mod 2=0 then s:=s+i;
           write(‘Tong cac so tren la: ‘,s);
           readln;
   end.

   Bình luận

2. uses crt;
   var n,tong,i:integer;
   begin
      clrscr;
      tong:=0;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do if i mod 2 = 0 then tong:=tong+i;
      writeln(‘Tong cac so chan nho hon hoac bang ‘,n,’ la: ‘,tong);
      readln
   end.

   Bình luận