Составить программы на языке Паскаль:
Даны два числа. Найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей этих чисел.
alexcozearschi
3
06.04.2020 11:20
4
Другие вопросы по теме Информатика
NastyaVelikaya2000
17.01.2021 10:24
мыпоммрт
17.01.2021 10:20
Славик14102
28.08.2019 22:00
JustTonight
28.08.2019 22:00
Kvintsekstakkord
28.08.2019 22:00
МиланаТрошина
01.07.2019 22:40
ГЕОГАФИЯ
01.07.2019 22:40
Элиза12098
16.07.2019 02:40
duk73p07117
16.07.2019 02:40
Популярные вопросы
- Вычислите , применив распределительный закон умножения: 352,29* (-0,564) + (- 252,29)*(-0,564)...
1 - Права и обязанности бюргера в средневековом городе....
1 - Часы отстали на 13 минут 33 секунды и показывают 9 часов 20 минут 15 секунд Запиши...
2 - На тіло, повністю занурене у воду, діє Архімедові сила 60 Н. Визначте яка Архімедові...
2 - Английский язык тема:профессии дам 40б...
3 - Дан перечень простых и сложных веществ ZnCl2 ,Cl2 ,O2 ,P2O5 ,Ca Распределите...
3 - Как раскрывается тема дружбы в произведении И.И. Ликстанова Малышок нужно!...
3 - Шпоры по градусной мере у меня контрольная завтра...
2 - Який вид стебла в огірка?...
3 - Этот тест сделан в незарегистрированной версии констр (4*6*2+16)*5 мне нужен ответ...
3
===== PascalABC.NET =====
begin
var (a, b) := ReadReal2('Введите два числа:');
Println('Среднее арифметическое кубов равно',
(a ** 3 + b ** 3) / 2);
Println('Среднее геометрическое модулей равно',
Sqrt(Abs(a * b)))
end.