e) E = 1 + 3 + 5 + . . . + n (n: số lẻ)

0 bình luận về “e) E = 1 + 3 + 5 + . . . + n (n: số lẻ)”

1. program oken;

   uses crt;

   var e,n,i:longint;

   begin

   clrscr;

   write(‘nhap n: ‘); readln(n);

   e:=1;

   for i:=3 to n do if i mod 3=0 then e:=e+i;

   writeln(‘E=’,e);

   readln;

   end.

   Bình luận

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

   Bình luận