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 câu trả lời

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!!!