H24

Viết chương trình tính giá trị biểu thức sau
T=a!+b!+(a-b)!
Với a,b nguyên dương (a>b) được nhập vào từ bàn phím. Chương trình có sử dụng chương trình con hàm hoặc thủ tục 

ML
10 tháng 5 2023 lúc 20:50

Program HOC24;

var t: longint;

a,b: integer;

function gt(x: integer): longint;

var i: integer; tich: longint;

begin

tich:=1;

for i:=1 to n tich:=tich*i;

gt:=tich;

end;

begin

write('Nhap a: '); readln(a);

write('Nhap b: '); readln(b);

t:=gt(a)+gt(b)+gt(a-b);

write('T = ',t);

readln

end.

Bình luận (3)

Các câu hỏi tương tự
NV
Xem chi tiết
VK
Xem chi tiết
ND
Xem chi tiết
TL
Xem chi tiết
H24
Xem chi tiết
DH
Xem chi tiết
H24
Xem chi tiết
PH
Xem chi tiết
NH
Xem chi tiết