0 program pemangkatan

program pangkat;

uses crt;

var x,x2,x3: integer;

begin

clrscr;

writeln('--------------');

writeln('x    x2     x3');

writeln('--------------');

for x:= 1 to 100 do

begin

x2:=x*x;

x3:=x2*x;

writeln(x: 1, x2 :5,x3:7);

end;

readln;

end.

program_pangkat 

Artikel Terkait :