Второе задание. помогите подалуйста. срочно.

Question

Второе задание. помогите подалуйста. срочно.

---

Answer 1

Ответ:

program n;

var r, z :integer;

begin

r:=3;

z:=0;

while r<=24 do</p>

begin

 z:=z+r;

 r:=r*2;

end;

writeln('z=',z);

end.