Tinh tong cac so tu 1->n bang For->Do

0 bình luận về “Tinh tong cac so tu 1->n bang For->Do”

1. Program Hotboy ;

   Uses crt;

   Var S,i,n: integer;

   Begin

   Clrscr;

   Write(‘nhap n’);

   Readln(n);

   For i:=1 to n do

   S:=S+i;

   Write(‘tong la’,S);

   Readln

   End.

   Bình luận

2. uses crt;

   var i,n ,t : integer;

   begin clrscr;

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

   t:=0;

   for i:=1 to n do t:=t+i;

   write(‘tong =’,t);

   readln

   end.

   Bình luận