Даны три числа . найти среднее арифметическое и среднее геометрическое этих...

Question

Даны три числа . найти среднее арифметическое и среднее геометрическое этих чисел.
Паскаль,для программы Algo

Comments

а какие числа то

---

Это для Алго ,паскаль.Там вводить свои переменные надно

---

сможешь сделать?

---

нет

---

я смогу

Answer 1

Program Task;
Var a, b, c : integer;
Var alg, geom : real;
begin
write ('Введите первое число:');
readln (a);
write ('Введите второе число:');
readln (b);
write ('Введите третье число:');
readln (c);
geom:=(ln(a*b*c)/3);
alg:=(a+b+c)/3;
writeln('Среднее геометрическое: ',geom);
writeln('Среднее арифметическое: ',alg);
end.