Bài 8. Lặp với số lần chưa biết trước

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
doan hao

Viết chương trình pascal tính tổng S=1+2+3+...+N?(bằng câu lệnh while...do:)

Nguyệt Minh
26 tháng 2 2018 lúc 20:56

Var S,N,i:Integer;
begin
Write('Nhap N='); Readln(N);
S:=0;
i:=0;
While S<=N do
begin
i:=i+1;
S:=S+i;
End;
Writeln('S=',S);
Readln
End.


Các câu hỏi tương tự
SuperMeo
Xem chi tiết
Thanh huyền
Xem chi tiết
Thu Tuyền
Xem chi tiết
Thu Tuyền
Xem chi tiết
Minh Ngọc
Xem chi tiết
Thanh huyền
Xem chi tiết
Ngọc Tú
Xem chi tiết
NGUYỄN LÊ XUÂN THỊNH
Xem chi tiết
Ánh sao
Xem chi tiết