Viết chương trình 1+2+3+…+t với t là 1 số tùy ý

0 bình luận về “Viết chương trình 1+2+3+…+t với t là 1 số tùy ý”

1. uses crt;

   var t,i ,s: integer;

   Begin 

   s:=0;

   Writeln(‘Nhap t=’); readln(t);

   For i:=1 to t do s:=s+i;

   Writeln(‘Tong la :’, s);

   readln

   end.

   Bình luận

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

   Bình luận