#226을 조금 만지작거리고 있습니다. 포인트가 포인트 == 폴리곤의 중심을 중심으로 하는 원 위에 있을 뿐만 아니라, 그러나 1976-gon의 가장자리에 눌러진 "절반" 지름의 원 세트에도 있습니다. 이것은 고정된 점에서 원의 끝 중 하나와 원과 교차하는 모든 화음의 중점 위치를 상상하면 이해하기 쉽습니다. 아마도 이 원에는 더 많은 "반점"이 있을 것입니다. (c) 즉. 대답은 아마도 명백한 최소값(1976) 이상일 것입니다. 더 생각합니다. // 그건 그렇고, 1976 == 2*2*2*13*19 // 도움이 될지 모르겠습니다. 그러나 나는 그것을 고려합니다. :)
Mathemat , 어서, 충돌기에 대해. 그는 위험하지 않습니다. 정치인과 과학자들이 오줌을 싸야 할 뿐입니다. 미국인들은 한 번에 전자 레인지의 도움으로 "공기 가열"을 시도했습니다. 그들은 엄청난 양의 돈을 망쳤고 이제는 기자들이이 영토를 걷고 있습니다 :))) - 그건 그렇고, 약 128. 다음이 적합합니다. 34688 34866 36468 38864 43668 44946 44964 63468 등. - 다음은 프로그램 자체입니다. - '발표 딤 M As Long 딤 N As Long Dim Koeficient As Long
프라이빗 서브 커맨드1_Click() 흐릿한 최대 수만큼 Dim MinChislo As Long Dim i As Long DimstrokAsString '초기 데이터 설정 최소 숫자 = 1 최대 수 = 100000 계수 = 128 i = MinNumber에서 MaxNumber까지 스트로크 = LTrim(RTrim(Str(i))) ProizCifr(스트로크) / SumCifr(스트로크) = 계수인 경우 프린트스트로크 또 다른 '"똥을 찾을 수 없음" 인쇄 종료 다음 나는 엔드 서브
'합계를 계산하다 개인 함수 SumCifr(문자열로 Stroca) As Long Dim i As Long 딤섬 As Long Dim Cifra As Long i = 1 에 대해 Len(Stroca) Cifra = Val(Mid(Stroca, i, 1)) Summa = Summa + Cifra 다음 나는 SumCifr = 합계 종료 기능
'제품의 계산 Private 함수 ProizCifr(Stroca As String) As Long Dim i As Long Dim Proiz As Long Dim Cifra As Long 수익 = 1 i = 1 에 대해 Len(Stroca) Cifra = Val(Mid(Stroca, i, 1)) 프로이즈 = 프로이즈 * 시프라 다음 나는 ProizCifr = 프로이즈 종료 기능
Richie , 충돌 장치가 약간 과장되었다는 것을 이해합니다. 34688 실패: 합은 29이고 이 소수의 곱은 나눌 수 없습니다. 돌 꽃이 당신에게 나오지 않는 것이 ... 그리고 당신이 지적한 것 중 어느 것도 적합하지 않습니다. PS 오, 당신은 다섯 자리 숫자를 가지고 있습니다!
리치, 결정하시겠습니까?
그래서 제가 직접 만들어봤어요 :)
그럼 3이 아니라 4자리로 합시다. 그리고 12시가 아니라 128시에요.
포인트가 포인트 == 폴리곤의 중심을 중심으로 하는 원 위에 있을 뿐만 아니라,
그러나 1976-gon의 가장자리에 눌러진 "절반" 지름의 원 세트에도 있습니다.
이것은 고정된 점에서 원의 끝 중 하나와 원과 교차하는 모든 화음의 중점 위치를 상상하면 이해하기 쉽습니다.
아마도 이 원에는 더 많은 "반점"이 있을 것입니다. (c) 즉. 대답은 아마도 명백한 최소값(1976) 이상일 것입니다.
더 생각합니다.
// 그건 그렇고, 1976 == 2*2*2*13*19
// 도움이 될지 모르겠습니다. 그러나 나는 그것을 고려합니다. :)
다시 말하지만, 모두 같으면 512*a = a*a*a*a, 즉 a = 8. 숫자 8888도 약간 신비롭습니다.
다른 솔루션은 생각하지 않았습니다. 그러나 세 자리의 곱은 128보다 큽니다.
그럼 3이 아니라 4자리로 합시다. 그리고 12시가 아니라 128시에요.
나는 BASIC에 프로그램이 있으므로 폭격을받을 수 없습니다 :)))
나는 BASIC에 프로그램이 있으므로 폭격을받을 수 없습니다 :)))
용이하게. 숫자가 예를 들어 30자리이면 Vasik은 계산하는 데 괴로워할 것입니다. 더 빨리 충돌기는 지구를 파괴할 것입니다.
Mathemat , 어서, 충돌기에 대해. 그는 위험하지 않습니다. 정치인과 과학자들이 오줌을 싸야 할 뿐입니다.
미국인들은 한 번에 전자 레인지의 도움으로 "공기 가열"을 시도했습니다. 그들은 엄청난 양의 돈을 망쳤고 이제는 기자들이이 영토를 걷고 있습니다 :)))
-
그건 그렇고, 약 128.
다음이 적합합니다.
34688
34866
36468
38864
43668
44946
44964
63468
등.
-
다음은 프로그램 자체입니다.
-
'발표
딤 M As Long
딤 N As Long
Dim Koeficient As Long
프라이빗 서브 커맨드1_Click()
흐릿한 최대 수만큼
Dim MinChislo As Long
Dim i As Long
DimstrokAsString
'초기 데이터 설정
최소 숫자 = 1
최대 수 = 100000
계수 = 128
i = MinNumber에서 MaxNumber까지
스트로크 = LTrim(RTrim(Str(i)))
ProizCifr(스트로크) / SumCifr(스트로크) = 계수인 경우
프린트스트로크
또 다른
'"똥을 찾을 수 없음" 인쇄
종료
다음 나는
엔드 서브
'합계를 계산하다
개인 함수 SumCifr(문자열로 Stroca) As Long
Dim i As Long
딤섬 As Long
Dim Cifra As Long
i = 1 에 대해 Len(Stroca)
Cifra = Val(Mid(Stroca, i, 1))
Summa = Summa + Cifra
다음 나는
SumCifr = 합계
종료 기능
'제품의 계산
Private 함수 ProizCifr(Stroca As String) As Long
Dim i As Long
Dim Proiz As Long
Dim Cifra As Long
수익 = 1
i = 1 에 대해 Len(Stroca)
Cifra = Val(Mid(Stroca, i, 1))
프로이즈 = 프로이즈 * 시프라
다음 나는
ProizCifr = 프로이즈
종료 기능
34688 실패: 합은 29이고 이 소수의 곱은 나눌 수 없습니다. 돌 꽃이 당신에게 나오지 않는 것이 ... 그리고 당신이 지적한 것 중 어느 것도 적합하지 않습니다.
PS 오, 당신은 다섯 자리 숫자를 가지고 있습니다!
О других решениях не думал. Но произведение любых трех цифр больше 128.
유일한 솔루션입니다.
프로그램 작성 - 문제 없습니다.
예를 들어 예고편에는 4자용 스크립트가 있습니다. 임의의 제수에 대한 모든 솔루션을 열거하여 제공합니다. (그런데 속도는 유쾌하게 놀랍습니다)
중첩 루프로 해결합니다.
그러나 흥미롭습니다. 임의의 수의 문자(매개변수에 지정됨)에 대한 프로그램을 작성하는 방법입니다.
어떤 옵션이 있습니까?
재귀는 롤링되는 것처럼 보이지만 스택에서 비용이 많이 듭니다. 지금은 재귀를 수행하겠습니다. 더 많은 아이디어가 있습니까?
Richie , 충돌 장치가 약간 과장되었다는 것을 이해합니다.
34688 실패: 합은 29이고 이 소수의 곱은 나눌 수 없습니다. 뭔가 돌 꽃이 당신을 위해 나오지 않습니다 ...
당신이 언급한 것 중 어느 것도 적합하지 않습니다.
나는 오늘 정말 나쁘다, 벌었다:
-
그러나 흥미롭습니다. 임의의 수의 문자(매개변수에 지정됨)에 대한 프로그램을 작성하는 방법입니다.
어떤 옵션이 있습니까?
재귀는 롤링되는 것처럼 보이지만 스택에서 비용이 많이 듭니다. 지금은 재귀를 수행하겠습니다. 더 많은 아이디어가 있습니까?
옵션이 없습니다. 30자의 경우 열거를 효과적으로 제한해야 합니다.
재귀는 아마도 쓸모가 없을 것입니다(문자 수가 10개 이상인 경우).