Даны два числа. Найти

среднее арифметическое кубов этих чисел.

Что тут не так?

program chisla;

var a, b, sr: real;

begin

clrscr;

writeln ('vvedite chislo a=') ;

readln (a) ;

writeln ('vvedite chislo b=') ;

readln (b) ;

sr: = ((a+a+a) * (b+b+b)) / 2;

writeln ('srednee arifmeticheskoe chisel=', sr) ;

readln;

end.

Question

Аксён

12 августа, 05:40

+2

Ответы (1)

Знаете ответ на вопрос?

Камилл · Answer 1

Камилл 12 августа, 06:22

0

Sr: = ((a*a*a) + (b*b*b)) / 2;