Тема: Олимпиада по программированию
Показать сообщение отдельно
Старый 25.12.2011, 16:33   #15
Данил
Модератор
 
Аватар для Данил
 
Регистрация: 11.07.2007
Сообщений: 2,910
Написано 686 полезных сообщений
(для 1,694 пользователей)
Игровой проект: Создал(а) один игровой проект в рамках форума boolean.name Игровой проект: Создал(а) один игровой проект в рамках форума boolean.name 
Всего наград 8
Ответ: Олимпиада по программированию
Local s$
For i=1 To 10
If i<>1 Then s=s+" , "+n(i) Else s=s+n(i)
Next
Print s

Function n:Int(in:Int)
Local l:Int=1
For i=1 To in
l=l*i
Next
Return l
End Function
все. о_О
откуда там столько кода? (лень разбирать код)
(Offline)
 
 Ответить с цитированием