ED3 1.Rasti visus 5 –ženklius sveikus skaičius, kurių viduri

1.  Rasti visus 5 –ženklius sveikus skaičius, kurių vidurinio skaitmens kvadratas yra lygus likusių skaitmenų sumai ir kiek jų yra?

k=0
for i in 10000...100000
  sk=i
  j=0
  suma=0
  while (sk!=0)
    j=j+1
    s=sk%10
    if(j!=3)
      suma=suma+s
    end
    if(j==3)
      kv=s*s
    end
    sk=sk/10
  end
  if(suma==kv)
  k=k+1
  puts i
  end
end
puts "Viso tokiu skaiciu yra: #{k}"