Matematické Fórum

Nevíte-li si rady s jakýmkoliv matematickým problémem, toto místo je pro vás jako dělané.

Nástěnka
22. 8. 2021 (L) Přecházíme zpět na doménu forum.matweb.cz!
04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
23.10.2013 (Jel.) Zkuste před zadáním dotazu použít některý z online-nástrojů, konzultovat použití můžete v sekci CAS.

Nejste přihlášen(a). Přihlásit

#1 21. 03. 2010 18:50 — Editoval awm1 (30. 03. 2010 21:33)

awm1
Příspěvky: 51
Reputace:   
 

Bezčtvercová čísla

Ahoj, vyřešil jsem jeden příklad týkající se principu inkluze a exkluze, ale nejsem si jist výsledkem:

O přirozeném čísle n řekneme, že je bezčtvercové, pokud n není dělitelné číslem k^2 pro žádné k ≥ 2  přirozené. Zjistěte, kolik se takových čísel nachází v intervalu 134, 135, ..., 522.

Úlohu jsem řešil tak, že jsem si nejprve spočítal počty takových čísel pro intervaly 1..522 a 1..133. (Konečný výsledek získám jistě odečtením výsledků pro tyto dva intervaly od sebe.) Z obou intervalů bylo potřeba vyškrtat násobky druhých mocnin prvočísel – tj. 4, 9, 25, 49, 121, 169, 289, 361 (větší už nejsou třeba). To jsem udělal tak, že jsem nejprve odečetl od nejvyššího čísla intervalu dolní celé části po dělení těmito druhými mocninami; pak jsem přičetl zpět počty všech násobků NSN pro všechny dvojice druhých mocnin, kde to bylo možné. Další odčítání podle principu I/E nebylo už třeba, protože nejmenší společné násobky překračovaly svými hodnotami 133 i 522.

A tak mi vyšlo:

133 - 33 -14 - 5 - 2 - 1 + 3 + 1 = 81
522 - 130 - 58 -20 - 10 - 4 - 3 - 1 + 14 + 5 + 2 + 1 +2 + 1 = 320

A tedy 320 - 82 = 238.

Díky moc komukolik, kdo se v tom úděsném zápisu vyzná a řekne mi, jesli je to správně či nikoliv.


Ruská ruleta: sudo [ $[ $RANDOM % 6 ] == 0 ] && rm -rf /

Moje stránky - http://www.klimesv.php5.cz

Offline

  • (téma jako vyřešené označil(a) awm1)

#2 21. 03. 2010 22:43

pietro
Příspěvky: 4766
Reputace:   187 
 

Re: Bezčtvercová čísla

↑ awm1: neviem ci som spravne pochopil ale Basicom mi vyslo 151 :(

Sum = 0
For i = 134 To 522
For k = 2 To 22
ctv = k * k
cis = i Mod ctv
If cis = 0 Then Sum = Sum + 1
If cis = 0 Then GoTo a
Next k
a:

Next i

Offline

 

#3 21. 03. 2010 22:53

awm1
Příspěvky: 51
Reputace:   
 

Re: Bezčtvercová čísla

Ahoj,

jestli to dobře čtu, tak ten algoritmus počítá přesný opak – tj. čísla "čtvercová". Ale nevadí – svůj výsledek jsem trochu poopravil, a když odečtu od všech prvků tvůj výsledek, tak to plus mínus cihla vychází.

Díky za pomoc.


Ruská ruleta: sudo [ $[ $RANDOM % 6 ] == 0 ] && rm -rf /

Moje stránky - http://www.klimesv.php5.cz

Offline

 

Zápatí

Powered by PunBB
© Copyright 2002–2005 Rickard Andersson