Заданы два натуральных

числа. Определить, явля ется ли среднее

арифметическое этих чисел целым числом.

решить задачу в паскале.

Question

Информатика

Зоря

13 ноября, 00:12

Заданы два натуральных

числа. Определить, явля ется ли среднее

арифметическое этих чисел целым числом.

решить задачу в паскале.

+4

Ответы (1)

Знаете ответ на вопрос?

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

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

Заданы два натуральных

числа. Определить, явля ется ли среднее

арифметическое этих чисел целым числом.

решить задачу в паскале.