Trịnh Ngọc Kiên
(Kiendvd)
New Member
À quên Hải Anh ơi, anh post luôn cái bài Tin lên đây cho em nhé. Em Linh ( Tin ) và các em khác đọc đừng cười anh trình còi Tin nhg mà thik múa rìu qua mắt thợ nhé 
, thông cảm em Hải Anh nhờ anh trước
Begin
CLRSCR;
Write ('Nhap so N'); Readln (N);
Write ('Nhap so P'); Readln (P);
S:=1 ;
K:=1 ;
A:=1 ;
For i:=1 to N do
S:= S*i ;
For M:=1 to N do
Begin
A:=A*P ;
If S mod A = 0 then
K:=M;
End;
Writeln('So M can tim la :', K );
Readln;
End.
, thông cảm em Hải Anh nhờ anh trước Begin
CLRSCR;
Write ('Nhap so N'); Readln (N);
Write ('Nhap so P'); Readln (P);
S:=1 ;
K:=1 ;
A:=1 ;
For i:=1 to N do
S:= S*i ;
For M:=1 to N do
Begin
A:=A*P ;
If S mod A = 0 then
K:=M;
End;
Writeln('So M can tim la :', K );
Readln;
End.
)
