даны переменные a, b, c. определить является ли одна из этих переменных средним арифметическим двух других, в случае отсутствия такой переменной напечатать соответствующее сообщение. На языке ПАСКАЛЬ
Ответы
Ответ дал:
0
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
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
Вас заинтересует
1 год назад
1 год назад
2 года назад
8 лет назад
8 лет назад