Historie úprav

Alesh

Odpověděl/a – 8.únor 22:08

Možná jsem si zjednodušil zadání, nevím jestli brát v potaz i číslo jedna a pokud je ten dělitel vícenásobný, pak jestli ho brát jednou nebo tolikrát, kolikrát je v čísle zastoupen.
Co třeba 73 * 5 = 365 (73 + 5 = 78).

Alesh

Odpověděl/a – 13.únor 19:07

Možná jsem si zjednodušil zadání, nevím jestli brát v potaz i číslo jedna a pokud je ten dělitel vícenásobný, pak jestli ho brát jednou nebo tolikrát, kolikrát je v čísle zastoupen.
Co třeba 73 * 5 = 365 (73 + 5 = 78).
Doplňuji:
Tak jsem si dal tu práci a analyzoval jsem to pořádně. Předpokládám, že tedy je potřeba brát naprosto všechny dělitele, tedy i 1 a číslo samotné. Správná odpověď je: 45 (1 + 3 + 5 + 9 + 15 + 45). Vyřešil jsem to algoritmem ve VBA v Excelu:

Sub najdi_cislo()

Dim i As Integer
Dim j As Integer
Dim soucet As Integer

For i = 3 To 501 Step 2
soucet = 0
For j = 1 To i
If i Mod j = 0 Then soucet = soucet + j
Next j
If soucet = 78 Then
MsgBox i
Exit Sub
End If
Next i

End Sub