viết chương trình tính tổng 100 số tự nhiên đầu tiên bằng câu lệnh if… then-

0 bình luận về “viết chương trình tính tổng 100 số tự nhiên đầu tiên bằng câu lệnh if… then-”

1. Program tinh_tong;

   uses crt;

   const : N:=100;

   Var i,tong:integer;

   begin

   clrscr;

   tong:=0; i:=1;

   while i<=N do

   begin

   tong: = tong + i;

   i:=i+1;

   end;

   Writeln(‘tong cua 100 so tu nhien dau tien la ‘,tong);

   Readln ;

   End.

   Bình luận