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

H24

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

ML
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.

Bình luận (0)

Các câu hỏi tương tự
ML
Xem chi tiết
HN
Xem chi tiết
TH
Xem chi tiết
AT
Xem chi tiết
NL
Xem chi tiết
DM
Xem chi tiết
31
Xem chi tiết
NK
Xem chi tiết
H24
Xem chi tiết