[Help] Tìm số nguyên dương a nhỏ nhất thỏa mãn: a^a chia hết N. (Số lớn)

[giangnt]

Chương trình đây, rất đơn giản, các bạn cho ý kiến

[/FONT]
Var N,i:longint;
function mu(x:longint):longint;
Var i,tich:longint;
Begin
 Tich:=1;
 For i:=1 to x do Tich:=Tich*x;
 mu:=Tich;
End;
BEGIN
write('Nhap vao so nguyen duong N:');
Readln(N);
write('So nho nhat co binh phuong chia het cho N la:');
For i:=1 to N do if mu(i) mod N = 0 then
Begin
 write(i);
 break;
End;
Readln
End.

[htkkplus]

lehang xem lại code nhá. Vì hàm mũ của bạn là để tính N! chứ không phải N^N. Bạn đọc lại cho kĩ đề bài đã.

[citybuilder1102]

tieulong hay nhầm thế. Bạn xem lại đi, hàm mũ tớ xây dựng là tính x mu x đấy

[skygame]

Chương trình đây, rất đơn giản, các bạn cho ý kiến

Var N,i:longint;
function mu(x:longint):longint;
Var i,tich:longint;
Begin
 Tich:=1;
 For i:=1 to x do Tich:=Tich*x;
 mu:=Tich;
End;
BEGIN
write('Nhap vao so nguyen duong N:');
Readln(N);
write('So nho nhat co binh phuong chia het cho N la:');
For i:=1 to N do if mu(i) mod N = 0 then
Begin
 write(i);
 break;
End;
Readln
End.

Ý tưởng giống hệt bạn trungsyk10it mà.
Với lại nếu chỉ code bình thường thế này thì liệu đc n bằng bao nhiêu hả lehang_gb1?

[vietnhatglass]

tieulong hay nhầm thế. Bạn xem lại đi, hàm mũ tớ xây dựng là tính x mu x đấy

Ờ sr bạn nha vì mình đọc không kĩ lắm. [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]