Viết chương trình nhập số tự nhiên N từ bàn phím (N>0), tính giai thừa của N (N!)

Question

dananhthu · Answer

Uses crt;
Var i,n,gt:integer;
Begin
   Clrscr;
   Write(‘Nhap n =’); readln(n);
   gt:=1;
   For i:=1 to n do
   gt:=gt*i;
   Writeln(n, ‘!=’,gt);
   Readln;
End.

bichha · Answer

program giaithua;

uses crt;

var n,i:byte;

gt:int64;

begin

clrscr;

write(‘Nhap so can tinh: ‘); readln;

gt:=1;

for i:=1 to n do gt:=gt*i;

write(n,’!= ‘,gt);

readln;

end.

CHUC BAN HOC TOT

Trả lời

Viết chương trình nhập số tự nhiên N từ bàn phím (N>0), tính giai thừa của N (N!)

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