Question

ПРОШУ ВАС
ЗАДАЧа ПРОШУ ЛЮДИ
​

Answer 1

Ответ:

var a, b: real;

begin

 a:=256;

 b:=0;

 while a <> 1 do

   begin

     a:=a/2;

     b:=b+a;

   end;

end.