Tính và đưa ra kết quả: S=1+2+3+… cho đến khi S>50 (Dùng while…do)
2 câu trả lời
Program BTH;
uses crt;
var s,i:longint;
Begin
clrscr;
i:=0;
s:=0;
While i<50 do
Begin
i:=i+1;
s:=s+i;
end;
write('Tong day sp tren la: ',s);
readln;
end.
uses crt;
var s,i:longint;
begin
clrscr;
i:=0; s:=0;
while s<=50 do
begin
i:=i+1;
s:=s+i;
end;
write('Tong day so tren la: ',s);
readln
end.
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
