Viết chương trình con tính m=(a!+b!)/3

Question

dananh · Answer

uses crt;
var a,b:longint;
m:extended;
{—Ham-giai-thua—}
function gt:extended;
var c,d,i:longint;
begin
c:=1;d:=1;
for i:=1 to a do c:=c*i;
for i:=1 to b do d:=d*i;
m:=(c+d)/3;
write(‘(‘,a,’!+’,b,’!)/3=’,m:0:2);
end;
{—Chuong-trinh-chinh—}
BEGIN
clrscr;
write(‘Nhap a,b: ‘); readln(a,b);
gt;
readln;
END.

ngocdiep · Answer

program phuongt;
uses crt;
var a, b: integer;
m: real;
function kt: real;
var x, y, i: integer;
begin
x:=1; y:=1;
for i:=1 to a do x:=x*i;
for i:=1 to b do y:=y*i;
m:=(x+y)/3;
write(‘m = ‘, m:3:2);
end;
begin
clrscr;
write(‘Nhap a = ‘); readln(a);
write(‘Nhap b = ‘); readln(b);
kt;
readln
end.

Viết chương trình con tính m=(a!+b!)/3

Viết một bình luận Hủy