[radiobutton]

Сообщение от Halk-DS

Ну они явно не на столько простые как ты говоришь. Задачи эти для студентов университета 1-4 курс(возможно и 5, но ни одного не видел) + школьники старших классов, которые на таких олимпиадах большая редкость. Эта олимпиада - один из этапов отбора участников на всеукраинскую олимпиаду. Поэтому, как на 1-й этап могу согласится, что задачи 2 и 3 весьма простые. Но задачи 1 и 4, если они для тебя в первой(что для студентов часто бывает) достаточно сложны. А если учесть что на написание 6 таких задач отведено 3 часа, олимпиаду не можно назвать детской. При этом нельзя использовать интернет и любые дополнительные материалы.

radiobutton я был б рад увидеть хотя б 1-ю задачу в твоем исполнении...

Радуйся

Graphics3D 1024,768
SetBuffer BackBuffer() 

st$ = FAKTORIAL(100)

Repeat
Text 10,10,st
Flip 
Until KeyHit(1)
End 

Function FAKTORIAL$(n)
If n=0 Or n=1
	Return "1"
End If
s$="1"
For i=2 To n
	s$=ololo(s,Str(i))
Next
Return s
End Function

Function ololo$(a$,b$)
If b="10" 
	Return a+"0"
End If
If b="100"
	Return a+"00"
End If
If Right(b,1)="0"
	b=Left(b,1)
	a=a+"0"
End If
If Len(b)=1
	Return ololo2(a,b)
End If

s1$=ololo2(a,Right(b,1))
s2$=ololo2(a+"0",Left(b,1))
Return ololo3(s2,s1)
End Function

Function ololo2$(a$,b$)
	d=Int(b)
	p=0
	lena=Len(a)
	s$=""
	For i=1 To lena
		c=Int(Mid(a,lena-i+1,1))*d+p
		p=c/10
		s=Str(c Mod 10)+s
	Next
	If p>0
		s=Str(p)+s
	End If
Return s
End Function

Function ololo3$(a$,b$)
p=0
s$=""
For i=1 To Len(a)
	If i>Len(b)
		d=0
	Else
		d=Int(Mid(b,Len(b)-i+1,1))
	End If
	c=Int(Mid(a,Len(a)-i+1,1))+d+p
	p=c/10
	s=Str(c Mod 10)+s
Next
If p>0
	s=Str(p)+s
End If
Return s
End Function

Function TrollFaceFAKTORIAL$(n)
If n=0 Or n=1
	Return "1"
End If
s=1
For i=2 To n
       s=s*i
Next
Return s
End Function