Question

Нужно сделать номер b
срочно!!!!
В долгу не останусь

Answer 1

Решение:

var z,n:Integer;

begin

 z := 5;

 for n := 1 to 5 do

   z := z*2;

 writeln('Z=' + z);

end.

Вывод:

Z = 160