(Подразумевалось, что министр откровенный, а не страна) 1) Если Россия - самая скрытная страна, то она оба раза солгала, тогда из ее утверждения следует противоречие(проект принадлежит России и Франции одновременно). Значит этот вариант не подходит. 2) Если Россия - самая откровенная, то проект принадлежит Китаю. Франция - откровенная страна, противоречие. 3) Если Россия - осторожная, тогда а) Если первое утверждение верно, то проект принадлежит не России, а Франции, тогда Франция - тоже осторожная страна. Противоречие. б) Если второе утверждение верно, то проект принадлежит России, тогда Франция - самая скрытная, а Китай - откровенная страна. Что удовлетворяет условию. ответ: России.
Вариант решения №1 Находим через сумму членов 2¹ + 2² + 2³ +...+ 2ⁿ
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016) var i,j,s,n,a: integer; begin readln(n); for i:=1 to n do begin a:=1; for j:=1 to i do begin a:=a*2; end; s:=s+a; end; writeln(s); end.
Тестовое решение: 5 62
Вариант решения №2 Заметим, что 2¹ + 2² + 2³ +...+ 2ⁿ =2ⁿ⁺¹ - 2 Тогда алгоритм сильно упрощается
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016) var i,n,a: integer; begin readln(n); a:=1; for i:=1 to n+1 do a:=a*2; writeln(a-2); end.
1) Если Россия - самая скрытная страна, то она оба раза солгала, тогда из ее утверждения следует противоречие(проект принадлежит России и Франции одновременно). Значит этот вариант не подходит.
2) Если Россия - самая откровенная, то проект принадлежит Китаю.
Франция - откровенная страна, противоречие.
3) Если Россия - осторожная, тогда
а) Если первое утверждение верно, то проект принадлежит не России, а Франции, тогда Франция - тоже осторожная страна. Противоречие.
б) Если второе утверждение верно, то проект принадлежит России, тогда Франция - самая скрытная, а Китай - откровенная страна. Что удовлетворяет условию.
ответ: России.
Находим через сумму членов 2¹ + 2² + 2³ +...+ 2ⁿ
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var i,j,s,n,a: integer;
begin
readln(n);
for i:=1 to n do begin
a:=1;
for j:=1 to i do begin
a:=a*2;
end;
s:=s+a;
end;
writeln(s);
end.
Тестовое решение:
5
62
Вариант решения №2
Заметим, что 2¹ + 2² + 2³ +...+ 2ⁿ =2ⁿ⁺¹ - 2
Тогда алгоритм сильно упрощается
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var i,n,a: integer;
begin
readln(n);
a:=1;
for i:=1 to n+1 do a:=a*2;
writeln(a-2);
end.