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