АД
Александр Денисов
Подскажите. как в паскале записать это: 2^n *a? Подскажите. как в паскале записать это: 2^n *a
где n:=0, n:=n+1
где n:=0, n:=n+1
var a, b, n: Integer;
function Stepen(a, n: Integer): Integer;
begin
if n > 1 then Stepen := a * Stepen(a, n - 1);
else if n = 1 then Stepen := a;
else Stepen := 1;
end;
begin
n := 5;
a := 3;
b := Stepen(2, n) * a;
end.