DSC00452

IF UczbaUluzba? liczba i:*ncłb«l

rradln:

kNO

liczba l:*Hciba2; w:-ml;

w^tflnC*«•»i»w»ł«• liczba jest liczba 1-' ,1 iczbal:4:0):

fwiriłn:

A/cx^i®>i 'Y⁾vGcyvcx'>n Vjo_r_t d $

X    'Yl ^oM:c|£V^

y5łi««irr Am dJGj

L< Jb.

jit * 1 j) t^\wtTVrt^ \

program potęga; uses crt; var

i,n:byte; a,x:real; begin clrscr;

writelnCProgram oblicza xdon potęgi'); write(*Podaj n-');    ^

readln(n);

v*rite('Podaj liczbę podnoszona do potęgi x-');

readln(x);

i:-l;

a:-l;

*bile i<-n do

begin

a:-x*a;

i:-Ul;

end;

writeln(x:2:0, ' do potęgi * .n wynosi a«\a:5:2);

readln(a);

readln;

end.

Ul*

—

i \

program potęga; uses crt; var

i,n:bvte; a-integer; begin clrscr;

»ri teIn('Program oblicza 2 do n potęgi ); writ«(*Podaj n-^ł); roadloOOl i:-l: a:-ł;

'

J-a', r/yutkc v ^Cvo^(^    ^* - V L A^

I 'iv)^U.lvC*CX ^    ¹    1 i>l -Ci i

£X*

■ł" ’ e i o»o do

begie

*:-2"a:

i:-i*ł:

3?    .    n

^Cc/'XV\ OO H'.x t^C-    u '^Va-A.

• *

^.EfEB J/7i^rr--i_:-uxA. U./ML ^£>C\ ^,yU *wx Cv

wHt«T-m ’2 do potęgi reodim;

.n wynosi a-'»a:2):

t—r

—