см.объяснение
Объяснение:
program prog;
var sum,x,n:integer;
function VozvStep(a,k:integer):integer;
var i,res:integer;
begin
res:=1;
for i:=1 to k do res:=res*a;
VozvStep:=res;
end;
Writeln('Enter x,n: ');
readln(x,n);
sum:=VozvStep(x,5)+VozvStep(x,3)+VozvStep(x,n);
writeln('result = ',sum);
end.
см.объяснение
Объяснение:
program prog;
var sum,x,n:integer;
function VozvStep(a,k:integer):integer;
var i,res:integer;
begin
res:=1;
for i:=1 to k do res:=res*a;
VozvStep:=res;
end;
begin
Writeln('Enter x,n: ');
readln(x,n);
sum:=VozvStep(x,5)+VozvStep(x,3)+VozvStep(x,n);
writeln('result = ',sum);
end.