Вариант решения №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.
Клава ввод
Мышь тоже
Моник вывод
Лазер сд память
Микрофон ввод
Сенсор экран ввод
Вебка вывод
Флэш карт память