Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Thị Thu Hiền

AI BIẾT CÂU NÀY GIÚP MIK VS ......CẦN GẤP khocroibucminh

Bài tập Tin học

Phạm Thanh Tường
11 tháng 5 2017 lúc 20:23

Program tính_chia;

Uses crt;

Var i, n, s, a: integer;

Begin

Write('Nhap so n: '); readln(n);

s:=1;

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

a:=0;

For i:=1 to n do a:=a+i;

Writeln('Ket qua phep tinh chia bang: ', s/a :10:2);

readln;

End.


Các câu hỏi tương tự
Kim Thái
Xem chi tiết
khánh evil
Xem chi tiết
Thị Ngọc Phan
Xem chi tiết
Nga Pupu
Xem chi tiết
Nguyễn Phạm Quốc Huy
Xem chi tiết
Hoàng Thị Bình 123
Xem chi tiết
Lê Khánh Phương
Xem chi tiết
Phượng Võ
Xem chi tiết