Mesaj Sayısı : 1274 Yaş : 31 Nerden : sakarya Kayıt tarihi : 05/05/08
Konu: Üs Alma Programı Cuma Haz. 06 2008, 12:27
uses wincrt; Var s,x,y,i:integer; Begin Writeln('Üssü alınacak sayıyı girin = '); readln(x); Writeln('Üssünü girin'); readln(y); s:=1; for i:=1 to y do Begin s:=s*x; End; Writeln('Sonuc = ',s); readln; End.