logo
Вход Регистрация Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
AliceWhite31841
AliceWhite31841
29.03.2023 22:30 •  Информатика

“Заполните пробелы, определяя информационный вес I символа алфавита с мощностью умоляю!


“Заполните пробелы, определяя информационный вес I символа алфавита с мощностью умоляю!

👇
Увидеть ответ
Открыть все ответы
Ответ:
serhio2000
serhio2000
29.03.2023
Uses graphabc; begin   {горшок}   setpencolor(clbrown);   setbrushcolor(clbrown);   line(52, 280, 110, 452);   line(110, 452, 196, 452);   line(196, 452, 243, 280);   line(243, 280, 52, 280);   {зальём горшок цветом}   floodfill(120, 400, clbrown);   {стебли}   setpenwidth(5);   setpencolor(clgreen);   line(58, 129, 127, 277);   line(142, 56, 142, 280);   line(229, 123, 164, 278);   {лепестки цветов}   setpencolor(clpurple);   line(44, 101, 29, 70);   line(45, 98, 67, 68);   line(55, 95, 55, 64);   line(55, 95, 74, 73);   line(71, 99, 83, 81);   line(71, 110, 95, 109);   line(73, 116, 92, 123);   line(60, 122, 83, 135);   line(50, 132, 48, 145);   line(49, 132, 33, 143);   line(41, 123, 19, 133);   line(43, 115, 13, 124);   line(44, 109, 14, 108);   line(37, 103, 17, 94);   line(136, 50, 131, 64);   line(135, 46, 117, 67);   line(125, 48, 98, 62);   line(135, 38, 102, 37);   line(130, 30, 103, 22);   line(128, 22, 112, 7);   line(146, 12, 155, -6);   line(158, 14, 166, -7);   line(159, 28, 175, 12);   line(163, 40, 191, 47);   line(158, 47, 172, 58);   line(147, 49, 162, 68);   line(134, 19, 129, 6);   line(218, 91, 210, 78);   line(216, 91, 198, 80);   line(225, 83, 213, 60);   line(243, 88, 240, 62);   line(251, 89, 267, 74);   line(255, 106, 278, 110);   line(245, 116, 264, 132);   line(238, 118, 248, 142);   line(231, 125, 232, 141);   line(219, 112, 197, 129);   line(219, 112, 183, 108);   {середины цветков}   setpencolor(clyellow);   setbrushcolor(clyellow);   circle(53, 116, 16);   circle(142, 37, 17);   circle(231, 103, 20); end.
4,5(87 оценок)
Ответ:
MrLeysanHD
MrLeysanHD
29.03.2023
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 uses crt; var i,xa,ya,xb,yb,xc,yc: integer;   function Dlina(x1,y1,x2,y2: integer):real; var d: real; begin d:= sqrt(sqr(y1-y2)+sqr(x1-x2)); Dlina:=d; end;   function Perimetr(a,b,c: real): real; begin Perimetr:=a+b+c; end;   procedure Vvod (nt: byte; var ax,ay,bx,by,cx,cy: integer); begin writeln ('Координаты вершины A ',nt,' треугольника'); readln (ax,ay); writeln ('Координаты вершины B ',nt,' треугольника'); readln (bx,by); writeln ('Координаты вершины C ',nt,' треугольника'); readln (cx,cy); end;   begin for i:=1 to 3 do     begin     Vvod (i,xa,ya,xb,yb,xc,yc);     writeln ('Периметр ',i,' треугольника = ',Perimetr(Dlina(xa,ya,xb,yb),Dlina(xb,yb,xc,yc),Dlina(xc,yc,xa,ya)):0:2);     writeln;     end; readkey end.
4,7(51 оценок)
Это интересно:
О
Как научиться рисовать людей: советы и примеры...
09.07.2022
10 советов как убедить родителей позволить вам завести маленькую собаку...
Ф
Как облечься во Всеоружие Божие: наставление для верующих...
К
Как отчистить старые кастрюли быстро и безопасно...
П
Как наполнить рождественский чулок: идеи для украшения...
К
Как выбрать емкости для хранения пищевых продуктов: советы и рекомендации...
З
Здоровье
11.09.2020
Как узнать, есть ли у вашего ребенка аллергия на глютен...
О
Не можете правильно произнести французские буквы? Вот как это сделать правильно!...
П
Как подготовиться к появлению котят в доме...
И
Как снять документальный фильм: советы от профессионалов...
Новые ответы от MOGZ: Информатика
vikacatcatcat
vikacatcatcat
06.01.2022
Вякому вигляді процесор опрацьовує інформацію?...
avrika
avrika
22.01.2020
5 примеров виды информации...
DanilGorev
DanilGorev
14.06.2021
Початок задумайте, число ,додайте 6 ,зменшать на 4,число ділиться на 2? додати 1 ,поділити на 2 ,поділити на 2 ,кінець Це задача по Паскаль ​...
Алахахбар228
Значення властивостей можуть бути...​...
sashaselezneva1
sashaselezneva1
31.01.2021
Для передачи по каналу связи сообщения, состоящего только из символов а, б, в, г используется посимвольное кодирование: а-110, б-100, в-11, г-01. через канал связи передается сообщение:...
NiVan1337
NiVan1337
31.05.2020
Укажите компоненты для подключения к интернету. вычислительное устройство модем поставщик интернет-услуг цифровая абонентская линия (dsl-соединение) беспроводное подключение подключение...
Miya5koka
Miya5koka
20.06.2020
Утоматов ген обуславливающий красный цвет плодов доминирует над геном жёлтой окраски .какие по цвету плоды окажутся у растений от скрещивания гетерозиготных красноплодных растений...
tanya2017kazanova
tanya2017kazanova
20.06.2020
Разложите по 49008 и 67 813742 напишите побыстрее!...
kseny07
kseny07
20.06.2020
Будильник отстаёт на 3мин. в час. сейчас он показывает 11ч.41мин. через сколько минут он покажет 12ч? а) через 19; б) через 18; в) через 21; г) через 20; д) через 16....
alkofner
alkofner
20.06.2020
Почему стальной шарик в воздухе падает ускоренно, а в концентрированном сахарном сиропе практически равномерно...

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ