tính a^6 sau 3 phép tính. Biết a nhập từ bàn phím

1 câu trả lời

uses crt;

var a : real;

begin

clrscr;

readln(a);

a := a * a;

a := a * (a / sqrt(a));

a := a * a;

write(a : 0 : 0);

readln

end.