Program TINH_N_GIAI_THUA;
Uses crt;
Var i,n,gt:integer;
Begin
Clrscr;
Writeln(' TINH N GIAI THUA:');
Writeln('----------------------------------');
Write('Nhap n ='); readln(n);
gt:=1;
For i:=1 to n do
gt:=gt*i;
Writeln(n, '!=',gt);
Readln;
End.
Ý kiến bạn đọc
Những tin cũ hơn