Pascal

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

Cho hàm F(x) với x là số nguyên dương.
    - Nếu x chia hết cho 5 thì F(x)=0
    - Nếu x không chia hết cho 5 thì F(x) là số nhỏ nhất sao cho (F(x) + x) chia hết cho 7
    + VD: F(11)=3 vì 11 không chia hết cho 5 và 11+3 chia hết cho 7

var a:array[1..500] of int64;
    n:integer;

function f(x:int64):byte ;
begin
    if x mod 5=0 then exit(0)
    else
    begin
        if x mod 7=0 then exit(0)
            else exit(7-(x mod 7));
    end;
end;

procedure docdl;
var i:longint;
    s:integer;
begin
    assign(input,'buboi7.inp'); reset(input);
    assign(output,'buboi7.out'); rewrite(output);
    readln(n);
    for i:=1 to n do
    read(a[i]);
    close(input);
    s:=0;
    for i:=1 to n do
    s:=s+f(a[i]);
    write(output,s);
    close(output);
end;

begin
    docdl;
end.