CyM2006, Rodna Nacional. Problema 1
Enunciado
Bueno aca usé log para contar la cantidad de dígitos y un array ab para guardar los números ab que iban apareciendo:
dim ab(10 to 99)
dim n,i,z,p
n=10
do
n+=1
p=1
for i = 2 to n^(1/2)
if n mod i = 0 then
p=0
exit for
end if
next i
if p=1 then
ln = int(log(n)/log(10))+1
ab(n \ 10^(ln-2)) += 1
z=1
for i = 10 to 99
if ab(i) = 0 then
z=0
end if
next
if z=1 then exit do
end if
loop
print n\10^(ln-2),n
sleep
'RTA: 84
Está bien? Alguna sugerencia?