jaka jest najniższa liczba naturalna której cyfry są siódemką lub zerem i która dzieli sie przez 75 ? Bardzo pilne od razu daje naj

Najłatwiej takiej liczby to się znajdzie, jeśli istnieje, z komputerem. Według tego kodu, ta liczba będzie [tex]75\times1036=77.700[/tex]. (Kod poniżej; ewaluacja wykonana przez "Mathematica")

Lepsza sposoba:

k = 1;
While[
... digits = IntegerDigits[75*k] // DeleteDuplicates;
... digits =!= {0, 7} && digits =!= {7, 0},
... k++
... ];
75*k

-> 77.700

W pseudokodzie:

1. Zaczynamy z pierwszą liczbą naturalną, k = 1.
2. Sprawdzamy czy 75k składa się z 7 lub 0.
2a. Najpierw rozkładamy liczbę 75k aby stworzyć listę zawierająca jej cyfr. (IntegerDigits)
2b. Usuwamy powtarzające cyfry. (DeleteDuplicates)
2c. Nazywając tą listę "digits", sprawdzamy czy "digits" jest ta sama lista jak {0, 7} lub {7, 0}.
2d. Jeśli nie (=!=), wykonujemy tę samą kontrolę dla następnej wartości k. (k++ dodaje 1 do k)
3. Kiedy znajdziemy liczbę, która spełnia nasze kryteria, to ją powrócimy.