Напишите программу вычисления выражения: S=x3+x5+xn . Используйте функцию для возведения числа в степень
function VozvStep(a,k:integer):integer;
var i:integer;
begin
result:=1; for i:=1 to k do
result:=result*a;
vozvstep:=result;
end;
function VozvStep(a,k:integer):integer;
var i:integer;
begin
result:=1; for i:=1 to k do
result:=result*a;
vozvstep:=result;
end;
More Questions From This User See All
Answers & Comments
Ответ:
см.объяснение
Объяснение:
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.