Bài 1. Tích các chữ số.
Cho số nguyên N (0≤N≤109), tìm số tự nhiên Q nhỏ nhất sao cho tích của tất cả các chữ số trong Q thì bằng N.
Dữ liệu: Một dòng duy nhất ghi số N(0≤N≤109)
Kết quả: In ra số Q tìm được, nếu không tìm được số Q thỏa mãn yêu cầu, in ra -1.
Bài 2. Lũy thừa
“Cho số nguyên dương a. Hãy tìm số số nguyên n nhỏ nhất sao cho n lũy thừa n chia hết cho a”.
Dữ liệu: Một dòng duy nhất ghi số nguyên dương a (1 ≤ a ≤ 109).
Kết quả: Một dòng duy nhất ghi số nguyên n tìm được.
Câu 1:
Câu 2:
uses crt;
var isNext: boolean;
a,i: byte;
begin
write(‘Nhap so can tim: ‘);
readln(a);
i:=2;
while (isNext) do
if (i*i mod a = 0) then
isNext:=false
else i:=i+1;
write(‘Ket qua: ‘,i);
readln;
end.