Add tasks for all the new languages

2016-12-05 23:44:36 +01:00 · 2016-12-05 23:44:36 +01:00 · bba7bfd280
commit bba7bfd280
parent 9dc3c2bb62
13208 changed files with 134745 additions and 0 deletions
--- a/Task/Factorial/Rapira/factorial-1.rapira
+++ b/Task/Factorial/Rapira/factorial-1.rapira
@ -0,0 +1,7 @@
+Фун Факт(n)
+  f := 1
+  для i от 1 до n
+        f := f * i
+  кц
+  Возврат f
+Кон Фун
--- a/Task/Factorial/Rapira/factorial-2.rapira
+++ b/Task/Factorial/Rapira/factorial-2.rapira
@ -0,0 +1,13 @@
+Фун Факт(n)
+  Если n = 1
+    Возврат 1
+  Иначе
+    Возврат n * Факт(n - 1)
+  Всё
+Кон Фун
+
+Проц Старт()
+  n := ВводЦел('Введите число (n <= 12) :')
+  печать 'n! = '
+  печать Факт(n)
+Кон проц