Pascal

About Pascal
Modified: Wednesday, 22-12-2021 07:00 AM

Người ta xem số 4 và số 7 là số may mắn.

Nếu tách được một số thành tổng một số lượng các số 4 và số 7 thì đó là số may mắn.
Ví dụ: 
4
7
8=4+4
11=4+7
18=7+7+4
Như vậy các số như 4 7 8 11 18 là số may mắn
uses math;
var k,m,i:qword;
b:boolean;
begin
    b := false;
    readln(k);
    if (k mod 4=0)or(k mod 7=0) then b:=true
        else 
    begin
        m := k div 4;
        i := 1;
        while i<m do
        begin
            if (k - round(power(4,i))) mod 7=0 then
            begin
                b := true;
                break;
            end;
            inc(i);
        end;
    end;
    if b then write('Y') else write('N');
        readln;
end.