Viết chương trinh giai thưa số nguyên n nhập từ bàn phím (n>0)
2 câu trả lời
program hotboy;
uses crt;
var i,n,s: real;
begin
clrscr;
s:=1;
repeat
write('nhap n tu ban phim');
readln(n);
until n>0;
for i:=1 to n do
s:=s*i;
write('giai thua cua',n,'la',s:2:2);
readln
end.
Program GT;
Uses crt;
Var n,i: longint;
s: int64;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=1;
For i:=1 to n do
s:=s*i;
Write('Giai thua cua ',n,' la: ',s);
Readln
End.
