Как это записать? пользователь вводит три числа. найдите среднее арифметическое этих чисел, а также разность удвоенной суммы первого и третьего числа и утроенного второго числа
Var a,b,c : real; begin Read(a,b,c); Writeln('Ср. арифм.: ', (a + b + c)/3); Writeln('Разность удвоенной суммы первого и третьего числа и утроенного второго числа: ', 2 * (a + c) - 3 * b); end.
a,b,c : real;
begin
Read(a,b,c);
Writeln('Ср. арифм.: ', (a + b + c)/3);
Writeln('Разность удвоенной суммы первого и третьего числа и утроенного второго числа: ', 2 * (a + c) - 3 * b);
end.