Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Matherätsel





Frage

Guten Morgen, ich suche eine Formel für folgendes Problem: Gesucht ist die kleinstmögliche ganze Zahl, bei der, wenn man sie durch 2, 3, 4, 5 oder 6 teilt stets ein Rest von 1 bleibt. Wenn man sie durch Sieben teilt, bleibt kein Rest. Durch probieren habe ich die Lösung erhalten. Aber dafür muss es doch eine Formel geben!!! Danke für eure Mühe vorab Der Weltmeister

Antwort 1 von rainberg

Hallo Weltmeister,

eine Formel kann ich Dir leider nicht bieten, aber Du könntest das "Probieren" folgendem Mako überlassen.

Option Explicit

Sub kleinste_zahl()
    Dim lngI As Long
    For lngI = 7 To _
    InputBox("Bitte höchste zu prüfende Zahl eingeben") Step 7
    If lngI Mod 2 = 1 And _
    lngI Mod 3 = 1 And _
    lngI Mod 4 = 1 And _
    lngI Mod 5 = 1 And _
    lngI Mod 6 = 1 Then
        MsgBox lngI
        Exit Sub
    End If
    Next
End Sub


Gruß
Rainer

Antwort 2 von Aliba

Hi,

und hier die Formellösung:

=KGV(2;3;4;5;6)+1

CU Aliba

Antwort 3 von Aliba

Hi,

nochmal ich. Wer lesen kann, ist klar im Vorteil. Bei 7 soll ja kein Rest bleiben.

Also meinen Vorschlag erstmal vergessen.

Cu Aliba

Antwort 4 von Weltmeister

Danke,

euch beiden schon mal - hoffe da kommt noch mehr!
Suche ja, wie gesagt ne Formel.

P.S. Kennt jemand ein Matheforum, wo ich diese Frage auch stellen kann, ohne dort Mitglied zu werden?

Ciao
Weltmeister

Antwort 5 von Saarbauer

Hallo,

die werte 2 und 3 kannst du schon mal raushauen, da 2 in 4 und 6 enthalten ist und bei allen Zahlen die durch 4 oder 6 geteilt einen Rest 1 ergibt, ist bei 2 auch der Rest 1. Bei 3 ist es mit 6 das Gleiche. somit haben wir die Zahlen schon auf 4, 5 und 6 reduziert.

Gruß

Helmut

Antwort 6 von Aliba

Hi,

und hier die Formellösung:

{=KKLEINSTE(WENN(REST(KGV(ZEILE($2:$6))*ZEILE($1:$10000)+1;7)=0;KGV(ZEILE($2:$6))*ZEILE($1:$10000)+1);ZEILE(A1))}

ACHTUNG ARRAY-FORMEL!!! geschweifte Klammern nicht mit eingeben, sondern Formel normal erfassen und mit Strg+Shift+Enter abschliessen.

Formel kann auch nach unten kopiert werden und liefert dann die entsprechend nächstgrösseren Zahlen.

CU Aliba

Antwort 7 von Weltmeister

Hallo nochmal,

erst einmal Danke für die Hilfe.
Ne Excelformel haben wir ja jetzt dank Aliba.
Bei meinen Versuchen habe ich gleich rausbekommen, dass die letzte Zahl eine 1 sein muss! Mehr auch nicht.

Ich suche aber noch nach einer Matheformel fürs Papier außerhalb Excel - hat jemand ne Idee!

Danke
Weltmeister

Antwort 8 von ducky

Hi,

hilft Dir das:
http://delphi.zsg-rottenburg.de/ttbruchrechnen_y.html

Ist bei mir schon so lange her...

Ciao

Antwort 9 von Roro

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: