Question

Висящие вешалки Мишу не устроили, и он решил создать арт-объект. Он повесил одну вешалку, а на ее перекладину - ещё две, получился арт-объект. Ему показалось мало, и он стал вешать на перекладину нижней вешалки ещё по две. В итоге у него получилось n этажей. Напишите программу, которая определит, сколько вешалок понадобилось ямище для создания арт-объекта. Входные данные: n<=100 Выходные данные: вывести одно число - количество необходимых вешалок. Пример: Вх.: 3, Вых.: 7

Answer 1

Можно просто вычислить 2^n-1 или (если не использовать функцию возведения в степень) сделать так:
var n,i:integer; k:real;
begin
readln(n);
k:=1;
for i:=1 to n do k:=k*2;
writeln(k-1);
end.

Пример:
3
7