1) var x:integer; begin read (x); if (x=12) or (x=1) or (x=2) then writeln ('Зима'); if (x=3) or (x=4) or (x=5) then writeln ('Весна'); if (x=6) or (x=7) or (x=8) then writeln ('Лето'); if (x=9) or (x=10) or (x=11) then writeln ('Осень'); end. 2) var K,a:integer; begin readln(K); a:=K mod 10; if (K=11) or(K=12) or (K=13) or (K=14) then writeln ('У меня ',K,' друзей') else begin if (a=1) then writeln ('У меня ',K,' друг'); if (a=0) or ((a>=5) and (a<=9)) then writeln ('У меня ',K,' друзей'); if (a>=2) and (a<=4) then writeln ('У меня ',K,' друга'); end; end.
(Подразумевалось, что министр откровенный, а не страна) 1) Если Россия - самая скрытная страна, то она оба раза солгала, тогда из ее утверждения следует противоречие(проект принадлежит России и Франции одновременно). Значит этот вариант не подходит. 2) Если Россия - самая откровенная, то проект принадлежит Китаю. Франция - откровенная страна, противоречие. 3) Если Россия - осторожная, тогда а) Если первое утверждение верно, то проект принадлежит не России, а Франции, тогда Франция - тоже осторожная страна. Противоречие. б) Если второе утверждение верно, то проект принадлежит России, тогда Франция - самая скрытная, а Китай - откровенная страна. Что удовлетворяет условию. ответ: России.
