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 ạ .
2 câu trả lời
uses crt;
var n, s : longint;
begin
clrscr;
n := 1; s := 0;
while n <= 1000 do
begin
s := s + n; n := n + 1;
end; write('Tong s = ', s);
readln
end.
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}$
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
