Старик Хоттабыч может совершить Чудо вырвав из своей бороды один волос при этом на месте двух вырванных волос вырастает 1 Сколько всего чудес может совершить Старик Хоттабыч если первоначально в его бороде было 1000 волос

Question

Информатика

Настуся

1 марта, 03:13

Старик Хоттабыч может совершить Чудо вырвав из своей бороды один волос при этом на месте двух вырванных волос вырастает 1 Сколько всего чудес может совершить Старик Хоттабыч если первоначально в его бороде было 1000 волос

+1

Ответы (1)

Знаете ответ?

Армен · Answer 1

Var A, S:integer;

begin

A:=1000;

While not (A=0) do

begin

S:=S+A;

If (A mod 2=1) and not (A=1) then

begin

A:=A+1;

S:=S-1;

end;

A:=A div 2;

end;

Writeln (S) ;

end.