viết chương trình tính tổng 1+3+5+…+t với t là một số tùy ý cho người sử dụng viết vào

0 bình luận về “viết chương trình tính tổng 1+3+5+…+t với t là một số tùy ý cho người sử dụng viết vào”

1. uses crt;

   var s,i,t : integer;

   Begin

   Write(‘Nhap so tu nhien t tuy y :’); readln(t);

   For i:=1 to t do 

   If i mod 2 = 1 then s :=s+i;

   Write(‘Tong la :’,s);

   readln

   end.

   Bình luận

2. uses crt;
   var t,s,i:integer;
   begin
      clrscr;
      write(‘Nhap t: ‘); readln(t);
      for i:=1 to t do 
      if i mod 2 = 1 then s:=s+i;
      write(‘Tong la: ‘,s);
      readln
   end.
      

   Bình luận