Даны 2 числа.Найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей этих чисел.
10-11 класс
|
var
a, b: real;
begin
writeln('Введите два числа');
readln(a, b); //Вводим числа а и b
writeln('Среднее арифметическое кубов этих чисел: ', ((a * a * a) + (b * b * b)) / 2 : 0 : 5); {Печатаем среднее арифметическое кубов этих чисел с округлением до 5 знаков после запятой}
writeln('Среднее геометрическое модулей этих чисел: ', sqrt(abs(a) * abs(b)) : 0 : 5); {Печатаем среднее геометрическое модулей этих чисел с округлением до 5 знаков после запятой}
end.
Другие вопросы из категории
k:=0; For i:=1 to 6 do If x[i]<>0 then k:=k+1;
Читайте также
a) Program Ошибки1;
Begin
Summa:=6+8;
End;
b) Program Ошибки2;
Begin
Var X:integer;
X:=6+8;
Write(X);
End;
2)Даны два числа. Найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей этих чисел.
ДАННУЮ ПРОГРАММУ НУЖНО НАПИСАТЬ В ПАСКАЛЕ.
Помагите плииз)!!
числа 7 и меньше 10. Вывести количество элементов массива и среднее арифметическое значение этих элементов, которых больше заданного числа 7 и меньше 10 на монитор
языков программирования алгоритм,позволяющий найти среднее арифметическое нечетных трехзначных чисел,записанных в этом массиве.если ни одного такого числа нет,нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 100.опишите на русском языке или на одном из языков программирования алгоритм,позволяющий найти и вывести произведение элементов массива,которые имеют четное значение и не оканчиваются на 0.