Question

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

Answer 1

Ответ:

program n;

var r, z :integer;

begin

r:=3;

z:=0;

while r<=24 do

begin

 z:=z+r;

 r:=r*2;

end;

writeln('z=',z);

end.