Bài 6. Câu lệnh điều kiện

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Nhân

 VCT nhập vào số tự nhiên n.  In ra màn hình kết quả tính n!

Nguyễn Lê Phước Thịnh
3 tháng 1 2021 lúc 9:47

uses crt;

var n,i:integer;

gt:real;

begin

clrscr;

repeat

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

until n>=0;

gt:=1;

for i:=1 to n do 

  gt:=gt*i;

writeln(n,'!=',gt:0:0);

readln;

end.


Các câu hỏi tương tự
Hải Anh Tạ
Xem chi tiết
huu nguyen
Xem chi tiết
MinasuaSan Channel
Xem chi tiết
Ngoc Thanh
Xem chi tiết
nguyễn thanh hà
Xem chi tiết
Ngoc Thanh
Xem chi tiết
Trúc Anh
Xem chi tiết
Snsbbdbd Xnxb
Xem chi tiết
Quynh Anh Nguyen Tran
Xem chi tiết