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