Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Pisos1337228
24.04.2022 02:54 •
Информатика
В коллекции находятся 36 коллекционных монет. Из них 9 редкие. Периодически из коллекции достаётся 1 монета и оценивается на редкость,
после чего возвращается в коллекцию. Определить количество информации,
передаваемой при каждой оценке.
👇
Увидеть ответ
Открыть все ответы
Ответ:
HollyTribe
24.04.2022
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!
procedure AB(a,b:array of integer);
begin
var (iaMax,ibMax):=(a.IndexMax,b.IndexMax);
var t:=a[iaMax]; a[iaMax]:=b[ibMax]; b[ibMax]:=t
end;
begin
var a:=ArrRandom(9,-99,99);
Write('A: '); a.Println;
var b:=ArrRandom(11,-99,99);
Write('B: '); b.Println;
AB(a,b);
Write('A: '); a.Println;
Write('B: '); b.Println;
end.
Пример
A: -46 -76 98 -83 84 8 -14 46 8
B: 29 -36 37 78 -20 35 -77 -23 80 -50 -55
A: -46 -76 80 -83 84 8 -14 46 8
B: 29 -36 37 78 -20 35 -77 -23 98 -50 -55
4,6
(28 оценок)
Ответ:
aytac200505
24.04.2022
#include <iostream>
#include <iomanip>
using namespace std;
void Fun(int n)
{
if (n != 3)
{
double x1; double y1; double x2; double y2; double x3; double y3;
cin >> x1 >> y1 >> x2 >> y2 >> x3 >> y3;
double a = sqrt((x1 - x2)*(x1 - x2) + (y1 - y2)*(y1 - y2));
double b = sqrt((x2 - x3)*(x2 - x3) + (y2 - y3)*(y2 - y3));
double c = sqrt((x3 - x1)*(x3 - x1) + (y3 - y1)*(y3 - y1));
double p = (a + b + c) / (double)2;
double s = sqrt(p*(p - a)*(p - b)*(p - c));
cout << setprecision(6) << fixed << s;
}
if (n != 6)
{
double a; double b; double c;
cin >> a >> b >> c;
double p = (a + b + c) / (double)2;
double s = sqrt(p*(p - a)*(p - b)*(p - c));
cout << setprecision(6) << fixed << s; }
}
int main()
{
int n;
cin >> n;
Fun(n);
return 0;
}
4,4
(79 оценок)
Это интересно:
К
Компьютеры-и-электроника
06.07.2021
Как спрятаться от школьных блокировок и зайти на YouTube...
К
Компьютеры-и-электроника
11.10.2020
Как снять летсплей или как делать профессиональные видеоинструкции для YouTube?...
Д
Дом-и-сад
13.12.2020
Простые способы удаления жевательной резинки с бетона...
Ф
Финансы-и-бизнес
14.01.2023
Рассчитываем налог на собственность: полезные советы и всё, что нужно знать...
К
Компьютеры-и-электроника
06.09.2021
Как узнать, что пользователь заблокировал вас в Facebook Messenger...
К
Компьютеры-и-электроника
12.03.2020
Как запустить компьютер с командной строки: Руководство по запуску ОС без использования графического интерфейса...
О
Образование-и-коммуникации
23.03.2020
Как выжить в общежитии колледжа...
С
Стиль-и-уход-за-собой
12.12.2021
Как заменить ремешок на часах: простой и быстрый гид...
С
Стиль-и-уход-за-собой
03.12.2020
Безопасность в городе: как защитить себя от хулиганов?...
Д
Дом-и-сад
21.02.2022
Как выращивать тыкву зимних сортов: советы и рекомендации...
Новые ответы от MOGZ: Информатика
11264чс
12.07.2021
Выбери текстовые редакторы, которые можно использовать для создания веб-страниц. OpenBEXI SciTE NEdit Amaya AkelPad...
XxXRePlayXxX
10.01.2023
Выбери верные рекомендации по оформлению сайта: Названия пунктов меню делайте длинными; допустимо растягивание названия пункта на несколько строк. Выбирайте для страниц...
Ден2811
09.06.2020
Здравствуйте , желательно с полным объяснением. Задание 1 (таблица снизу) Доцент Злов внёс в таблицу результаты контрольной, написанной студентами его группы, тяжело...
monkeyone
20.03.2022
1)сколько единиц в двоичной записи числа 1029(10)(снизу)? 2)чему равна сумма чисел 13(8)(снизу) и 13(16)(снизу)? результат запишите в двоичной системе счисления....
13Милана2004
20.03.2022
Дан фрагмент программы на языке паскаль. как изменятся переменная s, если на экране – 102? var s, m: integer; begin s : = 102; m : = 39; while s 0 do begin s : = ;...
Makspoerty
20.03.2022
Решит дополнительный код. вот пример 28-9( в десятичной системе счисления) надо перевести в 2 систему счисления и ответ должен получится 17 в 10 системе счисления...
золотое5руно
20.03.2022
По информатике 5 для создания сообщения используется алфавит мощностью 64 символа. в сообщении 1500 символов, склько секторов займет это сообщение на дискете из №1,...
BloodyMary001
25.05.2020
Операцию выбора цвета можно осуществить с меню содержащего набор цветов, используемых при создании объектов. позволяет закрашивать замкнутые области целиком. позволяет...
230475sashan
30.12.2021
Деление с остатком 2: 2 , 3: 2 , 4: 2 , 5: 2 , 10: 2, 11: 2, 12: 2, 13: 2, 3: 3, 4: 3, 5: 3, 7: 3, 12: 3, 13: 3 14: 3, 16: 3, 18: 4, 9: 4, 10: 4, 11: 4...
РевинаМелек
30.12.2021
Из города а в город b выехал велосипедист. через 3 часа в том же направлении выехал мотоциклист и приехал в город b одновременно с велосипедистом. нужно найти скорость...
MOGZ ответил
Сентябрь улететь в дождь жёлтый...
Запиши у відсотках десятковий дріб 0,7? ...
назовите одного известного государственного военного деятеля или...
Проводя различные исследования, учёные всегда пре- следуют какую-то...
Аяз би ертегісіндегі маңызды эпизот...
геометрия 7 класс выполните действия...
Столыпин когда сделал реформу...
Какими профессиями занимались древние люди?...
Выполните возведение в степень 4b/5 3...
Ы.Алтынсариннің жастарға бата ретінде жазған шығармасын белгілеңіз...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
// Внимание! Если программа не работает, обновите версию!
procedure AB(a,b:array of integer);
begin
var (iaMax,ibMax):=(a.IndexMax,b.IndexMax);
var t:=a[iaMax]; a[iaMax]:=b[ibMax]; b[ibMax]:=t
end;
begin
var a:=ArrRandom(9,-99,99);
Write('A: '); a.Println;
var b:=ArrRandom(11,-99,99);
Write('B: '); b.Println;
AB(a,b);
Write('A: '); a.Println;
Write('B: '); b.Println;
end.
Пример
A: -46 -76 98 -83 84 8 -14 46 8
B: 29 -36 37 78 -20 35 -77 -23 80 -50 -55
A: -46 -76 80 -83 84 8 -14 46 8
B: 29 -36 37 78 -20 35 -77 -23 98 -50 -55