Viết chương trình pascal tính tổng S=1+ 2+ 3 +… +n? a,Bằng lệnh for…do b,Bằng lệnh while…do

0 bình luận về “Viết chương trình pascal tính tổng S=1+ 2+ 3 +… +n? a,Bằng lệnh for…do b,Bằng lệnh while…do”

1. a) 

   var i,n,s:longint;

   begin

   for i:=1 to n do

    s:=s+i;

   write(s);

   end.

   b) 

   var i,n,s:longint;

   begin

    while i<>n do

     i:=i+1;

     s:=s+i;

    end;

   write(s);

   end.

   Bình luận