Buch Cover Buch Cover Buch Cover Buch Cover

Web-Code: - Webcode Help

Zahlenrätsel (dreistellige Primzahlen) (Schleifen)

Gesucht werden alle 3stelligen Zahlen ABC, für die gilt:

  1. Die Ziffern A, B und C sind Primzahlen.
  2. Die Zahlen AB und BC sind Primzahlen.
  3. Die Zahl ABC ist eine Primzahl.

0 Kommentare

Bitte melde dich an um einen Kommentar abzugeben

6 Lösung(en)

sieb=L=[i for i in range(2,1000)]
for a in range(2,len(L)):
        for b in sieb: sieb.remove(b) if b!=a and b%a==0 else None
print(' '.join([str(i) for i in sieb if len(str(i))==3 and int(str(i)[0]) in sieb and int(str(i)[1]) in sieb and int(str(i)[2]) in sieb and int(str(i)[0:2]) in sieb and int(str(i)[1:]) in sieb]))

                

Lösung von: rob ert (tub)

def special_primes(limit: int = 999):
    non_primes = 2 * [True] + (limit-1) * [False]
    for i in range(2, limit+1):
        if not non_primes[i]:
            for j in range(2*i, limit+1, i):
                non_primes[j] = True
            if i >= 100 and all((not non_primes[idx] for idx in [*divmod(i, 10), *divmod(i, 100), i // 10 % 10])):
                yield i
print(list(special_primes()))
                

Lösung von: Name nicht veröffentlicht

Number.prototype.isPrime = function() {
  let i = 2, num = this;
  if (num == 0 || num == 1) return false;
  if (num == 2) return true;
  while (i <= Math.ceil(Math.sqrt(num))) {
    if (num % i == 0) return false;
    i++;
  }
  return true;
}

function check(str) {
  if (!parseInt(str).isPrime()) return false;
  if (!parseInt(str.slice(0,2)).isPrime()) return false;
  if (!parseInt(str.slice(1)).isPrime()) return false;
  return true;
}

let digits = [2, 3, 5, 7],
    result = [];

for (let a of digits)
  for (let b of digits)
    for (let c of digits.slice(1)) {  // 2 auslassen
      let str = '' + a + b + c;
      if (check(str)) result.push(parseInt(str));
    }

console.log(result);
                

Lösung von: Lisa Salander (Heidi-Klum-Gymnasium Bottrop)

// C++ 20
#include <iostream>
#include <algorithm>
#include <vector>

bool is_prime(int n) {
    if (n == 0 || n == 1) return false;
    if (n == 2) return true;
    for (auto i{ 2 }; i <= (int)ceil(sqrt(n)); ++i)
        if (n % i == 0) return false;
    return true;
}

std::tuple<int, int, int, int, int> get_numbers(int n) {
    const auto c{ n % 10 }, b{ n / 10 % 10 }, a{ n / 100 % 10 };
    return { a, b, c, a * 10 + b, b * 10 + c };
}

int main() {
    for (auto i{ 101 }; i < 999; i+=2) {
        const auto [a, b, c, ab, bc] = get_numbers(i); // C++ 20!
        const std::vector<int> n{ i, ab, bc, a, b, c };
        if (std::all_of(n.begin(), n.end(), [](auto x){ return is_prime(x); }))
            std::cout << i << "\n";
    }
}
                

Lösung von: Jens Kelm (@JKooP)

// NET 6.x | C# 10.x | VS-2022
static (int a, int b, int c, int ab, int bc) GetNumbers(int n) {
    var c = n % 10;
    var b = n / 10 % 10;
    var a = n / 100 % 10;
    return (a, b, c, a * 10 + b, b * 10 + c);
}

for (int i = 101; i < 999; i+=2) {
    var (a, b, c, ab, bc) = GetNumbers(i);
    if (new List<int> { i, ab, bc, a, b, c }.All(n => n > 1 && Enumerable.Range(1, n).Where(x => n % x == 0).SequenceEqual(new[] { 1, n })))
        Console.WriteLine(i);
}
                

Lösung von: Jens Kelm (@JKooP)

' VBA

Function IsPrime(ByVal n As Integer) As Boolean
    Dim p As Boolean
    Dim i As Integer
    p = True
    Select Case n
        Case 0 To 1: p = False
        Case 2:
        Case Else
            For i = 2 To CInt(Sqr(n))
                If n Mod i = 0 Then p = False
            Next i
    End Select
    IsPrime = p
End Function

Function GetNumbers(ByVal n As Integer) As Variant
    Dim a As Integer, b As Integer, c As Integer
    c = n Mod 10
    b = n \ 10 Mod 10
    a = n \ 100 Mod 10
    GetNumbers = Array(n, a * 10 + b, b * 10 + c, c, b, a)
End Function

Sub Main()
    Dim i As Integer
    Dim b As Boolean
    Dim n As Variant
    For i = 101 To 999 Step 2
        b = True
        For Each n In GetNumbers(i)
            If Not IsPrime(n) Then
                b = False
                Exit For
            End If
        Next
        If b Then Debug.Print i
    Next i
End Sub
                

Lösung von: Jens Kelm (@JKooP)

Verifikation/Checksumme:

373

Aktionen

Bewertung

Durchschnittliche Bewertung:

Eigene Bewertung:
Bitte zuerst anmelden

Meta

Zeit:
Schwierigkeit: Leicht
Webcode: o04b-qqm2
Autor: ()

Download PDF

Download ZIP

Zu Aufgabenblatt hinzufügen