Это старая версия документа!
http://www.fortboyard.ru/inter/jeux/batonnets
алг нач . цел n=20 , k =3, i=1, a , s . вывод "На столе 20 палочек.", нс . вывод "Вы можете брать 1, 2 или 3.", нс . вывод "Если после Вашего хода осталась одна плаочка,", нс . вывод "Вы выиграли", нс . нц пока n > 1 . . если mod(i,2) = 1 . . . то . . . . вывод "на столе ", n, " палочек(чки)", нс . . . . вывод "ваш ход", нс . . . . ввод a . . . . n := n - a . . . иначе . . . . s := mod(n - 1, k + 1) . . . . если s = 0 то . . . . . . a := irand(1,3) . . . . . . n := n - a . . . . . . вывод "компьютер взял ", a, " палочек" , нс . . . . . иначе . . . . . . n := n - s . . . . . . вывод "компьютер взял ", s, " палочек" , нс . . . . все . . все . . i := i +1 . кц . вывод "осталось ", n, " палочка", нс . если mod(i,2) = 0 то . . . вывод "Вы победили ", нс . . иначе . . . вывод "Победил ПК " . все кон
Выберите один из городов мира:
алг нач вещтаб Dat[1:12] вещ sum=0, srzn=0, t цел к, n, m | Среднемесячная температура | по Москве Dat[1] := -7.7 Dat[2] := -5.3 Dat[3] := -0.7 Dat[4] := 8.8 Dat[5] := 19.7 Dat[6] := 22.7 Dat[7] := 25.5 Dat[8] := 23.7 Dat[9] := 16.0 Dat[10] := 7.1 Dat[11] := 1.8 Dat[12] := -2.9 нц для к от 1 до 12 кц вывод "средняя температура за год = ", srzn, нс вывод "количество месяцев в году с средней температурой >= 19 град. = ", n, нс вывод "самая высокая температура = ", t, нс вывод "самый теплый месяц = ", m, нс кон
Пример 1:
алг Основной нач цел n, k, i лит a, b сим c c := "!" b := "Привет " ввод a b := Склеить(b,a) b := Склеить(b,c) вывод b кон алг лит Склеить (лит a, лит c) нач знач := a + c кон
Пример 2:
алг Основной нач цел n, k, i лит a, b сим c ввод a n := длин(a) i := n - 1 c := Извлеч(a,i) вывод c кон алг сим Извлеч (лит a, цел i) нач знач := a[i] кон