lenguyenchihieu

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 

Minh Lệ
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ự
Nguyễn Bảo Việt
Xem chi tiết
Võ Chí Khang
Xem chi tiết
Nguyễn Xuân Đức
Xem chi tiết
Trần Văn Lượng
Xem chi tiết
Uyen
Xem chi tiết
Đinh Thu Hằng
Xem chi tiết
nana
Xem chi tiết
Phước Thiện Lê Hoàng
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết