Câu hỏi của Mai Quỳnh Anh

Question

Tính n! (dùng chương trình con)

Mọi người làm nhanh cho mik nha!!!

Mik cần gấp để nộp cho cô.

Sara Trang · Accepted Answer

Program Sara_Trang;

Uses Crt;

Var n:integer;

Function  gt(n:integer):longint; Var kq,i:integer;

Begin

kq:=1;

For i:=1 to n do kq:=kq*i;

gt:=kq;

End;

Begin

Clrscr;

Writeln('CHUONG TRINH TINH N! :');

Writeln('---------------------------------------');

Write('Nhap n = '); readln(n);

Writeln(n,'! = ',gt(n));

Readln;

End.

Mik ko giỏi phần CT con cho lắm sai sót mong bạn thông cảmCâu trả lời: Program Sara_Trang;

Uses Crt;

Var n:integer;

Function  gt(n:integer):longint; Var kq,i:integer;

Begin

kq:=1;

For i:=1 to n do kq:=kq*i;

gt:=kq;

End;

Begin

Clrscr;

Writeln('CHUONG TRINH TINH N! :');

Writeln('---------------------------------------');

Write('Nhap n = '); readln(n);

Writeln(n,'! = ',gt(n));

Readln;

End.

Mik ko giỏi phần CT con cho lắm sai sót mong bạn thông cảm

Lập trình đơn giản