Bài 15: Thao tác với tệp

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

Nhập số nguyên n. Tính n! và ghi kết quả vào tệp.

Minh Lệ
17 tháng 3 2023 lúc 22:58

Program HOC24;

var f: text;

i,n: integer;

s: longint;

begin

assign(f,'Ketqua.OUT');

rewrite(f);

write('Nhap N: '); readln(n);

s:=1;

for i:=1 to n do s:=s*i;

write(f,s);

close(f);

readln

end.


Các câu hỏi tương tự
Mĩ Lâm
Xem chi tiết
Huyền Nguyễn
Xem chi tiết
Trang Ha
Xem chi tiết
A3-37-Bùi Ngọc Phương Tr...
Xem chi tiết
Nguyễn Hoàng Thiên Lam
Xem chi tiết
Đặng công mạnh
Xem chi tiết
33. PHAN THỊ HỒNG THẮM 1...
Xem chi tiết
Nguyễn Đức Anh Khoa
Xem chi tiết
agvdh
Xem chi tiết