Bài khó đây

Tiêu đề: Bài khó đây 16/1/2015, 06:57

ho 2 số m,n. Hãy tìm k sao cho n! chia hết cho m^k nhưng n! ko chia hết cho m^k+1

Posts : 2 Danh tiếng : 0 Join date : 05/10/2015

BT2(4)
Uses Crt;
Var s,n,i,j,t:integer;
a:array[1..100] of integer;

Begin
Clrscr;
Writeln(‘SAP XEP DAY SO:’);
Write(‘Nhap so phan tu cua day n = ‘); Readln(n); For i:=1 to n do
Begin

Write(‘a[‘,i,’]= ‘);
Readln(a[i]);
End;
{sap xep day so giam dan} For i:=1 to n-1 do
For j:=i+1 to n do
If a[i]<a[j] then
Begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;

End;
Writeln(' Day sau khi sap xep giam dan la:'); For i:=1 to n do
Write(a[i]:4); Readln;
{Tinh trung binh day}
s:=0;
For i:=1 to n do s:=s+a[i];
Writeln('Gia tri trung binh la: ',s/n:6:2);

Readln;

End.