даны переменные a, b, c. определить является ли одна из этих переменных средним арифметическим двух других, в случае отсутствия такой переменной напечатать соответствующее сообщение. На языке ПАСКАЛЬ
More Questions From This User See All
Answers & Comments
Verified answer
Var a,b,c:real;begin
readln(a,b,c);
if a = (b+c)/2 then writeln(a:3:1,' - среднее арифметическое ',b:3:1,' и ',c:3:1)
else if b = (a+c)/2 then writeln(b:3:1,' - среднее арифметическое ',a:3:1,' и ',c:3:1)
else if c = (a+b)/2 then writeln(c:3:1,' - среднее арифметическое ',a:3:1,' и ',b:3:1)
else writeln('Среди чисел ',a:3:1,', ',b:3:1,', ',c:3:1,' нет одного значения, которое является средним арифметическим двух других');
end.
Пример:
5 4 3
4.0 - среднее арифметическое 5.0 и 3.0