Лёгкая задача по информатике паскаль.
По заданному числу x и целому n вычислить x^n используя цикл repeat...until.
По заданному числу x и целому n вычислить x^n используя цикл repeat...until.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Var x,xn:real; n,i:integer;begin
readln(x,n);
xn:=1; i:=0;
repeat
i:=i+1;
xn:=xn*x;
until i=abs(n);
if n<0 then xn:=1/xn;
writeln(x:3:1,'^',n,' = ',xn:6:4);
end.
Пример:
2 -3
2.0^-3 = 0.1250