Срочно, пожалуйста. ** завтра надо составить программу для вычисления среднего...

Question

Срочно, пожалуйста. на завтра надо

составить программу для вычисления среднего арифмитеческого и среднего геометрического двух чисел

Comments

срочно! пожалуйста ! простейшая программа на паскаль

---

3-4 строчки

Answer 1

Var a,b:real;
Begin 
  Write('Введите 2числа: '); readln(a,b);
      Writeln('Среднее арифмитическое этих чисел = ',(a+b)/2);
      Writeln('Среднее геометрическое этих чисел = ',(a*b)/2);
End.