Ru Рашка
ua Украина
org Оргия какая-то
cn Ускоглазики из Китая
Номер 6.
-121 т.к.
n<3, выводится -1. Переноса на следующую строку нет.
Процедура вызывает себя с аргументом n+3. n+3<3 (2<3) - выводится 2. Данная процедура (вызванная первой) вызывает себя также с аргументами n+3 и n+2. Но они будут не меньше 3 и ничего не произойдет.
Процедура вызывает себя с аргументом n+2. n+2<3 (1<3) - выводится 1. Данная процедура (вызванная первой) вызывает себя также с аргументами n+3 и n+2. Но они будут не меньше 3 и ничего не произойдет.
Номер 7.
1392613
Рассуждения полностью аналогичны предыдущему номеру. Проще всего нарисовать дерево со всеми вызовами процедуры либо просто написать программу.
1) колобок, монета, барабан
2)
топор
лейка
прорубь
ёж
Копейка рубль бережёт
Можно и проще...
Var X : Integer;
Begin
Readln(X);
While X>=2 do X:=X-2;
If X=0 then Writeln('Чётное') else Writeln('Нечётное');
end.
Нет конечно, он скорее будет тормозить от жары, чем от холода.