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

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

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

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

Анюша

29 января, 07:42

+4

Ответы (1)

Знаете ответ?

Лейла · Answer 1

Лейла 29 января, 08:01

0

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