Đề: Cho 2 số nguyên dương A, B (1 A < B 30000). Tìm 2 số nguyên dương p và q (với p q) sao cho p + q = A và p x q = B. Các bạn nói qua về thuật toán và giải bài này cho mình nữa nha(Hơi dài một tí cũng được nhưng kiến thức đừng nâng cao quá) 50đ đấy ạ mong các bạn giúp đỡ

Thuật toán

`p` và `q` đều là số nguyên dương và `p*q=B` nên `1 <= q,p <= B`

Do vậy, ta chỉ cần cho `p` chạy từ `1` đến `B`, tính `q=B/p` sau đó kiểm tra kết quả.

Code

uses crt;
var a,b,p,q: longint;
begin
    write('Nhap A: '); readln(a);
    write('Nhap B: '); readln(b);
    for p := 1 to b do
        if b mod p = 0 then begin
            q := b div p;
            if (p < q) and (q + p = a) then
                writeln('(p,q) = (',p,',',q,')');
        end;
end.