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

+ 0 -

Salta1411

13 июля 2013 г., 18:34:33 (10 лет назад)

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.

+ 0 -

1997Liza1997

13 июля 2013 г., 20:05:02 (10 лет назад)

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

+ 0 -

Kristinamirohn

13 июля 2013 г., 21:14:40 (10 лет назад)

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

+ 0 -

Dariya252

13 июля 2013 г., 23:34:00 (10 лет назад)

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

+ 0 -

Protasovamarina

14 июля 2013 г., 1:16:46 (10 лет назад)

нет

+ 0 -

печенька235

14 июля 2013 г., 3:27:08 (10 лет назад)

я смогу