Help help mn và giúp cái này với ae dd vào hết nha

Zan hỏi nhầm, cấu trúc Procedure cơ, nếu học rồi thì viết chương trình như sau:
Program baitap;
uses crt;
var n, sum: integer;
g1: real;
procedure GiaiThua(m: integer; var gt: real);
var i:integer
begin
if m= 0 then
gt:= 1
else
gt:= 1;
for i:=1 to m do
gt:=gt*i;
end;
begin(* program *)
write(' ban nhap so can tinh:');
readln(n);
while n>= 0 do
begin
giaithua(n,g1);
writeln(g1);
end;
for i:=1 to m do
sum:= 1/g1 1/gm
writeln('ket qua can tim la', sum);
readln;
end.
Mỏi tay quá, thank mấy phát động viên đi

Những người đã like zannaghazi bởi bài viết có ích này:

minhtan16