Question

Делится ли среднее арифметическое трёх цифр на последнее из них без остатка.
(Pascal)

Answer 1

var a,b,c:integer;
begin
readln(a,b,c);
if ((a+b+c) div 3) mod c =0 then writeln('YES')
else writeln('NO');
end.