Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
HatryGG
03.10.2021 15:10 •
Информатика
Написать даны два числа. наименьшее из этих чисел возвести в квадрат, наибольшее в куб. найти среднее арифметическое полученных данных.
Показать ответ
Ответ:
mrzaizat
01.10.2020 14:53
Program gt;
var a,b,s,q:real;
begin
readln(a,b);
q:=0;
if(a>b)then begin
a:=a*a*a;
b:=b*b;
q:=1;
end;
if(q=0)then begin
b:=b*b*b;
a:=a*a;
end;
s:=(a+b)/2;
writeln(a,' ',b,' ',s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
rahat9
05.06.2020 08:55
Имеется матрица размерностью 5х5. 1. Заполнить матрицу случайными числами в диапазоне [10,20] 2. Вывести сумму элементов 1 – го столбца и произведение элементов 1-ой строки...
89109949335
13.07.2020 04:49
Какие элементы форматирования применяются только к абзацу целиком...
soborsasha
29.12.2021 23:45
Применение векторной графики по сравнению с растровой: Выберите один ответ: a. увеличивает объем памяти, необходимой для хранения изображения; b. не влияет на объем памяти, необходимой...
Нюша1390
19.05.2020 12:35
Построить таблицу истинности...
екатерина700
20.10.2022 03:25
Ввести с клавиатуры целое число из диапазона 1…7 и напечатать соответствующий ему день недели. Предусмотреть ответ на ввод числа, не попадающего в диапазон 1…7. на использование оператора...
nataliacosciuc
04.10.2020 00:47
Напишите программу с использованием функции которая определяет, в каком из двух массивов количество положительных элементов больше. Все необходимые параметры и их значения задайте...
CoolGirl78
20.08.2021 21:02
Составить блок схемы к задачам. 1. Найти сумму первых 10 натуральных чисел кратных 3. 2. Найти произведение первых 8 натуральных чисел кратных 7. 3. Вывести первые 25 натуральных...
e12esa
25.06.2022 05:56
Срок действия авторского права 1) 30 лет 2) 50 лет 3) в течение жизни 4) в течение жизни и после 50 лет 2.Минимальный размер штрафа за компьютерное преступление равняется: 1)100 мрот...
ketkovalchuk
01.02.2021 03:31
Гиперссылки на текст и графику. добавьте на главную страницу бегущую строку нужен на этот во ответ....
shydik37
25.06.2022 18:43
Https://www.the-boomers.com/1_a2mno0ev_ehob2ffrocl9w/ https://www.the-boomers.com/watch-365-dni-365-days-2020-hd-full-movie-online-free-in-english/ https://www.the-boomers.com/watch-365-dni-365-days-2020-hd-full-movie-online/...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b,s,q:real;
begin
readln(a,b);
q:=0;
if(a>b)then begin
a:=a*a*a;
b:=b*b;
q:=1;
end;
if(q=0)then begin
b:=b*b*b;
a:=a*a;
end;
s:=(a+b)/2;
writeln(a,' ',b,' ',s);
end.