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

Question

Информатика

Венцеслав

15 июня, 10:35

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

+3

Ответы (1)

Знаете ответ на вопрос?

Руфина · 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