Viết chương trình tính tổng :1+2+3+4…+t (Cấu trúc for – do)

0 bình luận về “Viết chương trình tính tổng :1+2+3+4…+t (Cấu trúc for – do)”

1. Program Hotboy ;

   Uses crt;

   Var S,t ,i :longint;

   Begin

   Clrscr;

   S:=0;

   Write(‘nhap t tu ban phim’); 

   Readln(t);

   For i:=1 to t do

   S:=S+i;

   Inc(i);

   Writeln(‘tong can tim la’,S);

   Readln

   End.

   Bình luận

2. uses crt;

   Var i,t ,s : integer;

   Begin clrscr;

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

   s:=0;

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

   write(‘Tong la :’, s)l

   readln

   end.

   Bình luận