ТутРешу.Ру

ПОМОГИТЕ ПЛИЗ! Задачи на циклы с параметром…

Задание:

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




Знаете другой ответ?

Отправить свой ответ