T= 1+3+5+…+n giải giúp mình với lập chương trình

0 bình luận về “T= 1+3+5+…+n giải giúp mình với lập chương trình”

1. program oken;
   uses crt;
   var n,i,t:longint;
   begin
           clrscr;
           write(‘nhap so n: ‘); readln(n);
           for i:=1 to n do
                   if i mod 2=1 then t:=t+i;
           writeln(‘Tong cac so le tu 1 den ‘,n,’: ‘,t);
           readln;
   end.

   Bình luận

2. Do đề bạn là số lẻ(1,3,5…) nên cách làm như sau :

   Var n: integer;.

   s: longint;

   BEGIN

   repeat

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

   until (n>=0)

   ; s:=0;

   for i:=1 to n do if i mod 2 >< 0 then write(i:3);

   s:=s+i; write(‘Tong cac so tu 1 toi ‘, n,’ =’, s); readln

   Học tốt!

   Chúc bn học tốt!

   Bình luận