Предмет: Информатика,
автор: mum140275
срочно, пожалуйста. на завтра надо
составить программу для вычисления среднего арифмитеческого и среднего геометрического двух чисел
Ответы
Автор ответа:
0
Var a,b:real;
Begin
Write('Введите 2числа: '); readln(a,b);
Writeln('Среднее арифмитическое этих чисел = ',(a+b)/2);
Writeln('Среднее геометрическое этих чисел = ',(a*b)/2);
End.
Begin
Write('Введите 2числа: '); readln(a,b);
Writeln('Среднее арифмитическое этих чисел = ',(a+b)/2);
Writeln('Среднее геометрическое этих чисел = ',(a*b)/2);
End.
Похожие вопросы
Предмет: Математика,
автор: esimovatatana974
Предмет: Алгебра,
автор: MAJlAR
Предмет: Алгебра,
автор: geliapetrushina
Предмет: История,
автор: stimser