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

0 голосов
58 просмотров

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


Информатика (25 баллов) | 58 просмотров
Дан 1 ответ
0 голосов

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

(1.3k баллов)