Dữ liệu vào : tệp tin văn bản LUYTHUA.INP chứa 2 số mhuyeen dương X và N cách nhau tối thiểu 1 khoảng trắng (0<X<=32000,1<=N<=10^9 Dữ liệu ra: tệp tin văn bản LUYTHUA.OUT Vì kết quả có thể là 1 số rất lớn vì vậy chỉ cần ghi vào tệp 3 số cuối của kết quả lũy thừa X^n (X^n mod 10^3) dùng ngôn ngữ free pascal giúp e vss e cảm ơn ạk

Bạn có thể sử dụng đoạn code trên trong Free Pascal để chạy chương trình và tạo ra tệp LUYTHUA.OUT chứa 3 số cuối của kết quả lũy thừa

Đáp án:

var
  a, n: int64;

function power(a, n: int64): int64;
begin
  if n = 0 then
    power := 1
  else
  begin
    power := power(a, n div 2);
    if n mod 2 = 0 then
      power := (power * power) mod 1000
    else
      power := ((power * power) mod 1000 * a) mod 1000;
  end;
end;

begin
  assign(input, 'LUYTHUA.inp');
  assign(output, 'LUYTHUA.out');
  reset(input);
  rewrite(output);

  readln(a, n);
  writeln(power(a, n));

  close(input);
  close(output);
end.