Hãy viết chương trình tính n>1000 Sử dụng cú pháp while … Do Giúp em với ạ , em cảm ơn mọi người nhiều ạ .

0 bình luận về “Hãy viết chương trình tính n>1000 Sử dụng cú pháp while … Do Giúp em với ạ , em cảm ơn mọi người nhiều ạ .”

1. program kaito;

   uses crt;

   var n, s: integer;

   begin

      clrscr;

      while n<=1000 do begin s:=s+n; inc(i); end;

      writeln(‘Tong cua cac so tu 1 den khi n>1000 la: ‘,s); 

      readln

   end.

   CHÚC BẠN HỌC TỐT!!!

   Bình luận