Viết chương trình tính tổng 100 số tự nhiên đầu tiên (Sử dụng câu lệnh lặp While). giúp mình với nhá cảm ơn

0 bình luận về “Viết chương trình tính tổng 100 số tự nhiên đầu tiên (Sử dụng câu lệnh lặp While). giúp mình với nhá cảm ơn”

1. program oken;

   uses crt;

   var i,tong:integer;

   begin

   clrscr;

   i:=1;

   while i<=100 do

          begin

              tong:=tong +i;

              i:=i+1;

          end;

   writeln(‘tong 100 so dau tien: ‘,tong);

   readln;

   end.

   Bình luận

2. program tong;

   var

   i, S: integer;

   begin

   S:=0

   for i:=1 to 100 do S:=S+i;

   writeln(‘tong la=’, S);

   readln

   end.

   Bình luận