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 oken;

   uses crt;

   var n,i: integer;

   begin

   clrscr;

   i:=1; n:=0;

   while n<=1000 do

   begin

   n:=n+i;

   i:=i+1;

   end;

   writeln(‘Tong: ‘,n);

   readln;

   end.

   ${Oken}$

   Bình luận