Заданы два натуральных числа. Определить, является ли среднее арифметическое этих чисел целым числом. решить задачу в паскале.
Var a,b:real; begin writeln('Vvedite a');read(a); writeln('Vvedite b');read(b); if (frac((a+b)/2)=0) then writeln('Da') else writeln('Net'); end. p.s функция frac возвращает дробную часть числа.