Viết chương trình in ra màn hình tổng của 1000 số tự nhiên đầu tiên

0 bình luận về “Viết chương trình in ra màn hình tổng của 1000 số tự nhiên đầu tiên”

1. program oken;

   uses crt;

   var i,n:longint;

   begin

   clrscr;

   n:=0;

   for i:=1 to 1000 do

      n:=n+i;

   wrietln(‘tong=’,n);

   readln;

   end.

   Bình luận

2. Program FNG;
   Uses crt;
   Var i,s: longint;
   Begin
           Clrscr;
           s:=0;
           For i:=1 to 1000 do s:=s+i;
           Write(‘S = ‘,s);
           Readln
   End.

   Bình luận