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

Question

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

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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