Bài 1: Tính tổng Cho dãy số S=1+x+x^2++x^n với x, n là hai số nguyên dương. Yêu cầu: Cho hai số nguyên dương x và n, hãy tính phần dư của S khi lấy S chia cho 2022 Dữ liệu vào (SUMSEQ.INP) gồm hai số nguyên dương x,n. Dữ liệu ra (SUMSEQ.OUT) gồm một dòng ghi một số nguyên dương duy nhất là phần dư khi lấy S chia cho 2022. Ví dụ: SUMSEQ.INP 5 4 SUMSEQ.OUT 781 Giải thích: khi x=5,n=4 thì s=1+5+5^2+5^3+5^4=781 Giới hạn: Có 50% số test tương ứng với 50% số điểm thỏa mãn 1 x,n10^3; Có 50% số test tương ứng với 50% số điểm thỏa mãn 1 x,n10^6. giải bằng code Pascal và chạy được test cao với ạ.

uses math;
var n,x,p: int64;
    fi,fo: text;
begin
    assign(fi,'SUMSEQ.INP'); reset(fi);
    assign(fo,'SUMSEQ.OUT'); rewrite(fo);
    readln(fi,x,n);
    p:=trunc((x**(n+1)-1)/(x-1));
    write(fo,p mod 2022);
    close(fi);
    close(fo);
end.

* Pascal sợ không ăn hết được bài này á

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array} 

*Công thức: `S=1+x^1+x^2+...+x^n=(x^(n+1)-1)/(x-1)`

- Đề là lấy S chia lấy dư cho 2022

- Chia lấy dư : mod

*Hàm :

- `a^x` = a ** b (khai báo uses math)

*Code :

uses math;
var x, n : int64;
begin
    assign(input,'SUMSEQ.INP'); reset(input);
    assign(output,'SUMSEQ.OUT'); rewrite(output);
    readln(x,n);
    write(trunc((x **(n+1)-1) / (x-1)) mod 2022);
    close(input);close(output);
end .