Помогите составить программу решения задачи в паскаль АВС.Дано вещественное число А и целое числоN( больше 0).Найти А в степени N= А*А*А...*А ( числа А перемножаются N раз)
Помогите составить программу решения задачи в паскаль АВС.
Дано вещественное число А и целое числоN( больше 0).Найти А в степени N= А*А*А...*А ( числа А перемножаются N раз)
Гость
Ответ(ы) на вопрос:
Гостьprogram pps;
var a,rezult:real;
n,i:integer;
begin
writeln('a='); readln(a);
writeln('n='); readln(n);
rezult:=1;
for i:=1 to n do
rezult:=rezult*a;
writeln('rezult=',rezult);
end.
Не нашли ответ?
Похожие вопросы