[Arşiv] Ticaretle ilgisi olmayan saf matematik, fizik, kimya vb. beyin jimnastiği bulmacaları - sayfa 320
Alım-satım fırsatlarını kaçırıyorsunuz:
- Ücretsiz alım-satım uygulamaları
- İşlem kopyalama için 8.000'den fazla sinyal
- Finansal piyasaları keşfetmek için ekonomik haberler
Kayıt
Giriş yap
Gizlilik ve Veri Koruma Politikasını ve MQL5.com Kullanım Şartlarını kabul edersiniz
Hesabınız yoksa, lütfen kaydolun
Noktaların sadece çokgenin merkezi == noktasındaki çemberler üzerinde olmadığını,
aynı zamanda 1976-gon'un kenarlarına bastırılan "yarım" çaplı bir dizi daire üzerinde.
Daireyi, uçlarından biri ile sabit bir noktada kesişen tüm akorların orta noktalarının yerini hayal ederseniz, bunu anlamak kolaydır.
Belki de bu dairelerde biraz daha "yarı nokta" vardır. (c) yani cevap muhtemelen bariz minimumdan (1976) daha fazla olacaktır.
devamını düşünüyorum.
// Bu arada, 1976 == 2*2*2*13*19
// Bunun yardımcı olup olmayacağını bilmiyorum. Ama dikkate alıyorum. :)
Yine, hepsi eşitse, o zaman 512*a = a*a*a*a, yani. a = 8. 8888 sayısı da biraz mistiktir.
Başka çözümler düşünmedim. Ancak herhangi bir üç hanenin çarpımı 128'den büyüktür.
O zaman üç değil dört haneli olalım. Ve 12'de değil, 128'de.
BASIC'te bir programım var, bu yüzden onunla bombalanamam :)))
BASIC'te bir programım var, bu yüzden onunla bombalanamam :)))
Kolayca. Sayı, örneğin 30 basamaklıysa, Vasik'iniz saymak için işkence görecek. Çarpıştırıcı daha hızlı Dünya'yı yok edecek.
Mathemat , hadi, çarpıştırıcı hakkında. Tehlike arz etmiyor. Sadece politikacıların ve bilim adamlarının işemesi gerekiyor.
Amerikalılar bir zamanlar bir mikrodalga yardımıyla "havayı ısıtmaya" çalıştılar - büyük miktarda parayı mahvettiler, şimdi gazeteciler bu bölgede dolaşıyorlar :)))
-
Bu arada, yaklaşık 128.
Aşağıdakiler uyacaktır:
34688
34866
36468
38864
43668
44946
44964
63468
vb.
-
İşte programın kendisi:
-
Duyuru
Dim M As Uzun
Dim N Kadar Uzun
Dim Koeficient As Long
Özel Alt Komut1_Click()
Dim Max Sayısı Kadar Uzun
Dim MinChislo As Long
Dim kadar uzun
DimstrokAsString
'İlk verileri ayarla
MinSayı = 1
MaksSayı = 100000
katsayı = 128
i için = MinNumber - MaxNumber
kontur = LTrim(RTrim(Str(i)))
ProizCifr(strok) / SumCifr(strok) = Koeficient ise
Baskı vuruşu
Başka
'Hiçbir bok bulunamadı' yazdır
Eğer son
sonraki ben
son alt
TOPLAMI HESAPLA
Özel Fonksiyon SumCifr(Stroca As String) As Long
Dim kadar uzun
Dim Sum Kadar Uzun
Dim Cifra Kadar Uzun
i = 1 için Len(Stroca)
Cifra = Val(Orta(Stroca, i, 1))
Summa = Summa + Cifra
sonraki ben
SumCifr = Summa
bitiş işlevi
ÜRÜN HESAPLAMASI
Özel Fonksiyon ProizCifr(Stroca As String) As Long
Dim kadar uzun
Dim Proiz As Long
Dim Cifra Kadar Uzun
Proiz = 1
i = 1 için Len(Stroca)
Cifra = Val(Orta(Stroca, i, 1))
Proiz = Proiz * Cifra
sonraki ben
ProizCifr = Proiz
bitiş işlevi
34688 başarısız olur: toplam 29'dur ve bu asal sayının çarpımı bölünemez. Taş çiçek bir şey çıkmıyor size... Ve belirttiklerinizin hiçbiri hiç uygun değil.
PS Oh, beş haneli bir numaranız var!
О других решениях не думал. Но произведение любых трех цифр больше 128.
Tek çözüm.
Bir program yazın - sorun değil.
Örneğin fragmanda 4 karakterlik bir script var. rasgele bir bölen için tüm çözümleri numaralandırma yoluyla verir. (bu arada, hız hoş bir şekilde şaşırtıcı)
Yuvalanmış döngülerle çözer.
Ancak ilginçtir: rasgele sayıda karakter için bir program nasıl yazılır (bir parametrede belirtilir).
Hangi seçenekler?
Özyineleme yuvarlanıyor gibi görünüyor, ancak yığında pahalı. Şimdi bir özyineleme yapacağım. Başka fikir var mı?
Richie , çarpıştırıcının biraz fazla abartıldığını anlıyorum.
34688 başarısız olur: toplam 29'dur ve bu asal sayının çarpımı bölünemez. Bir şey taş çiçek çıkmaz sana...
Bahsettiklerinizin hiçbiri uymuyor.
Bugün gerçekten kötüyüm, kazandım:
-
Ancak ilginçtir: rasgele sayıda karakter için bir program nasıl yazılır (bir parametrede belirtilir).
Hangi seçenekler?
Özyineleme yuvarlanıyor gibi görünüyor, ancak yığında pahalı. Şimdi bir özyineleme yapacağım. Başka fikir var mı?
Seçenek yok. 30 karakter için, numaralandırmayı bir şekilde etkili bir şekilde sınırlamanız gerekir.
Özyineleme muhtemelen işe yaramaz (karakter sayısı 10'dan fazlaysa).
Seçenek yok. 30 karakter için, numaralandırmayı bir şekilde etkili bir şekilde sınırlamanız gerekir.
Özyineleme muhtemelen işe yaramaz (karakter sayısı 10'dan fazlaysa).
Evet katılıyorum. Yazmaya başladım ve uzun sürenin basitçe taşacağını hemen anladım.
// ancak bir yığın özel problemle 30 (ve hatta 300) basamak düzeyinde beklenmiyor - şimdi bellek büyük
Evet ve özyineleme gerekli değil, daha basit olabilir, zaten yinelemeli (tek döngüde) bir yöntem buldum, ancak .. ürün için bit derinliği hala yeterli değil.