BÀI TẬP NỘP BÀI BẢNG CHẤM BÀI MCD CÁC LẦN BẠN NỘP MCD - Ước chung đặc biệt Dữ liệu vào: standard input Dữ liệu ra: standard output Giới hạn thời gian: 1.0 giây Giới hạn bộ nhớ: 256 megabyte Đăng bởi: admin Ước số chung đặc biệt của hai số nguyên a và b là số nguyên dương d sao cho a chia hết cho d, b chia hết cho d, và tổng các chữ số của d là lớn nhất. Yêu cầu: Hãy tìm ước số chung đặc biệt của hai số a và b. Dữ liệu vào Trong một dòng duy nhất ghi hai số nguyên a, b (1 a,b 109). Kết quả Trong một dòng duy nhất ghi ra tổng các chữ số của ước số chung đặc biệt của hai số a và b. Ví dụ Input 220 440 Output 10

uses crt;
var a,b,res: longint;
function sumChar(n: longint): longint;
var res: longint;
begin
    res := 0;
    while n > 0 do
    begin
        res := res + (n mod 10);
        n := n div 10;
    end;
    exit(res);
end;
function gcd(a,b: longint): longint;
begin
    if a = 0 then exit(b);
    exit(gcd(b mod a, a));
end;
function max(a,b: longint): longint;
begin
    if a > b then exit(a);
    exit(b);
end;
procedure solve;
var i,n: longint;
begin
    i := 1;
    n := gcd(a,b);
    while i*i <= n do
    begin
        if n mod i = 0 then
            if n / i = i then res := max(res, sumChar(i))
            else res := max(res, max(sumChar(i), sumChar(n div i)));
        inc(i);
    end;
end;
begin
    readln(a,b);
    res := 0;
    solve();
    write(res);
end.