26/02/2024
Làm sao để có câu trả lời hay nhất?
26/02/2024
26/02/2024
```pascal
var f: text;
n, k, i: integer;
res: int64;
function power(a, b: int64): int64;
begin
if b = 0 then exit(1);
if b mod 2 = 0 then exit(power(a * a mod 1000000007, b div 2))
else exit(a * power(a * a mod 1000000007, b div 2) mod 1000000007);
end;
begin
assign(f,'FLASHBACK.INP');
reset(f);
readln(f,n,k);
close(f);
res := n;
for i := 1 to k do
res := (res + power(i,n)) mod 1000000007;
assign(f,'FLASHBACK.OUT');
rewrite(f);
writeln(f,res);
close(f);
end.
```
Nếu bạn muốn hỏi bài tập
Các câu hỏi của bạn luôn được giải đáp dưới 10 phút
CÂU HỎI LIÊN QUAN
06/09/2024
03/09/2024
Top thành viên trả lời