Напишите программу на паскале.для заданных чисел x и n вычислите z=x^n=x. x=n

169

415

Посмотреть ответы 2

Ответы на вопрос:

astashkin222

Информатика

4,6(21 оценок)

Var x,n,x1 : real; begin readln(x,n); x1: =abs(x); if x< 0 then writeln(-1*exp(n*ln(x1)): 0: 0) else writeln(exp(n*ln(x)): 0: 0); end.

марго419

Информатика

4,5(85 оценок)

Uses crt; var p,r: array [1..10000] of real; x,y,t,f,k: integer; sum,sr,ch,min: real; begin sum: =0; k: =0; f: =1; write('t='); readln(t); for x: =1 to t do begin write('p[',x,']: '); readln(p[x]); end; min: =p[1]; for x: =1 to t do if p[x]> 0 then begin sum: =sum+p[x]; inc(k); end; for x: =1 to 9 do if p[x]< min then min: =p[x]; sr: =sum/k; ch: =min/sr; for x: =1 to t do if p[x]> ch then begin r[f]: =p[x]; inc(f); end; writeln; for y: =1 to f-1 do writeln('r[',y,']: ',r[y]); readln; end.