ПОМОГИТЕ ПЛИЗ!!! Задачи на циклы с параметром 1.Дано вещественное число A и целое число N ( больше 0). Вывести A в степени N: An = A•A•...•A (числа A перемножаются N раз).
ПОМОГИТЕ ПЛИЗ!!! Задачи на циклы с параметром 1.Дано вещественное число A и целое число N (> 0). Вывести A в степени N: An = A•A•...•A (числа A перемножаются N раз).
Гость
Ответ(ы) на вопрос:
Гостьfunction Pow(a:real; n:integer):real; var r:real; i:integer; begin r := 1; for i := 1 to n do r := r * a; Pow := r; end; var a:real; n:integer; begin write('a = '); readln(a); write('n = '); readln(n); writeln(a, ' ^ ', n ,' = ', Pow(a, n)); end.
ГостьProgram stepen;
Var a: real; b, i, n: integer;
Begin
Readln (a, n);
b:=a;
For i:=2 to n do
a:=a*b;
Writeln(a);
Readln;
End.
Не нашли ответ?
Похожие вопросы