"Factor(" Befehl(e) gesucht um Zahlen über 100 aussieben. Stimmt das so? (Von KI umgeschrieben)

Community ACM ICPC
1

Siehe zuerst:

[Topic](Rechnen: Wer kann 3,3356409519815 mit 2-stelligen Zahlen (unter 100 Zahnrädern) darstellen? Die KI scheitert an einer Lösung-trotz 3 Bsp. f.die KI zum lernen!? (Mathematik, programmieren, zahnräder)

1=r
1=a
3,3356409519814=b
3,3356409519815=d
3,3356409519816=e

Lbl a
a/b=c
If c=round(c,0) Then
If max(factor(c))>100 Then
a+r=a
Goto a
Else
Disp a,„a-c=“,factor(c),„a“,factor(a)
a+r=a
Goto a
EndIf
Else
Goto b
EndIf

Lbl b
a/d=f
If f=round(f,0) Then
If max(factor(f))>100 Then
a+r=a
Goto a
Else
Disp a,„a-d=“,factor(f),„a“,factor(a)
a+r=a
Goto a
EndIf
Else
Goto c
EndIf

Lbl c
a/e=g
If g=round(g,0) Then
If max(factor(g))>100 Then
a+r=a
Goto a
Else
Disp a,„a-g=“,factor(g),„g“,factor(a)
a+r=a
Goto a
EndIf
Else
a+r=a
Goto a
EndIf

EndPrgm

2