Паскаль

Question

Помогите, пожалуйста, как в Паскале возвести 0 в степень отличную от нуля, если exp(ln(0)*a) при а <> 0 ln(0)!!! Только for i := 1 to 0???

Евгений Кудряшов · Accepted Answer

1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var a,n: real;
begin
write('Введите а: ');
read(a);
write('Введите n: ');
read(n);
writeln('a^(-n) = ',power(a, -n));
writeln('a^(-n+1) = ',power(a, -n+1));
writeln('a^(-n+2) = ',power(a, -n+2));
writeln('a^(-1) = ',power(a, -1));
end.