Задание:
ПОМОГИТЕ ПЛИЗ! Задачи на циклы с параметром 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.
Знаете другой ответ?