Bài 3: Tính n! (dùng chương trình con) Ai giỏi tin giúp với
2 câu trả lời
Program Tinh_Giai_Thua;
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('TINH N! : ');
Write('Nhapn='); readln(n);
Writeln(n,'!=',gt(n));
Readln
End.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
