Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
302
102
var n:integer;
x:longint;
Procedure Giai_Thua(var GT:longint; n:byte);
begin
GT:=1;
while n>0 do
begin
GT:=GT*n;
n:=n-1;
end;
end;
begin
repeat
write('Nhap so n: ');
readln(n);
if n<0 and n>=8 then
begin write('Nhap so n');
readln;
end;
until n>=8;
Giai_Thua(x,n);
writeln('Giai thua cua ',n,'la:',x);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin