Bài 2. Viết chương trình tính tổng s = 1+3+7+... tới khi s >= 1000 thì dừng. In kết quả ra màn hình.
1 câu trả lời
Program baitap;
Uses crt;
Var S,i:integer;
Begin
Clrscr;
i:=1;
S:=0;
While S<1000 do
Begin
S:=S+i;
i:=i+2;
End;
Writeln('S=',S);
Readln
End.
- Đề 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
