Заданы два натуральных числа. Определить, является ли среднее арифметическое этих чисел...

Question

Заданы два натуральных
числа. Определить, является ли среднее
арифметическое этих чисел целым числом.
решить задачу в паскале.

Answer 1

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 возвращает дробную часть числа.