Chương trình đơn giản

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

Lập trình tính tích S=1*2*3*...*n cho tới khi n>=0 thì dừng

Nguyễn Lê Phước Thịnh
19 tháng 12 2019 lúc 22:16

phải là bằng 0 mới được nhé bạn

uses crt;

var n,i:integer;

s:longint;

begin

clrscr;

write('n='); readln(n);

if n=0 then break

else begin

s:=1;

for i:=1 to n do

s:=s*i;

writeln('tich la: ',s);

end;

readln;

end.

Khách vãng lai đã xóa
Just a bad coder
29 tháng 1 2020 lúc 19:55

Ý HTT Single là nhập cho tới khi n>=0 mà :))

Khách vãng lai đã xóa

Các câu hỏi tương tự
Đạt Hoàng
Xem chi tiết
Đạt Hoàng
Xem chi tiết
Dũng Sầm
Xem chi tiết
Amy Ty
Xem chi tiết
Tran Anh
Xem chi tiết
Kimian Hajan Ruventaren
Xem chi tiết
Minh Lệ
Xem chi tiết
Quỳnh Anh
Xem chi tiết
Quỳnh Anh
Xem chi tiết