Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
0Pandohcka0
02.05.2022 09:20 •
Другие предметы
За год средние экспортные цены выросли на 12%, цены импорта увеличились на 5 %. Как изменились внешнеторговые условия?
Показать ответ
Ответ:
Джека11111окш
31.05.2020 07:44
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
uses graphABC;
const
kegl = 40;
var
space, line: integer;
procedure M(cx, cy: integer);
begin
MoveTo(cx, cy);
LineTo(cx, cy - kegl );
LineTo(cx + kegl div 2, cy);
LineTo(cx + kegl, cy - kegl);
LineTo(cx + kegl, cy);
end;
procedure I(cx, cy: integer);
begin
MoveTo(cx, cy - kegl);
LineTo(cx, cy );
LineTo(cx + kegl, cy - kegl);
LineTo(cx + kegl, cy);
end;
procedure R(cx, cy: integer);
begin
MoveTo(cx, cy);
LineTo(cx, cy - kegl);
LineTo(cx + kegl, cy - kegl);
LineTo(cx + kegl, cy - kegl div 2);
LineTo(cx, cy - kegl div 2);
end;
begin
space := kegl div 2;
SetWindowSize(4 * space + 3 * kegl, 4 * space + 3 * kegl );
line := space + kegl;
M(space, line );
I(2 * space + kegl, line );
R(3 * space + 2 * kegl, line );
line := 2 * space + 2 * kegl;
R(space, line );
I(2 * space + kegl, line );
M(3 * space + 2 * kegl, line );
line := 3 * space + 3 * kegl;
M(space, line );
I(2 * space + kegl, line );
M(3 * space + 2 * kegl, line );
end.
0,0
(0 оценок)
Популярные вопросы: Другие предметы
rinat0501
29.10.2020 04:45
Вкажи на адресу поточної клітинки у вікні середовища табличного процесора Excel (постав позначку біля числа, що відповідає номеру правильної відповіді на малюнку) * а)1 б)2...
gaukhars01
01.10.2020 09:13
Анализ стихотворения Янки Купалы выйдзi...
Ovhinoco
20.09.2020 19:46
Для кого в древнем китае сочинение Чжан Цаня Математика в девяти книгах было настольной игрой...
вщылыл234
02.06.2023 15:35
Установите соответствие между видом спорта и термином. Автоспорт Боулинг Бокс Борьба Шахматы мат страйк нокаут бросок через бедро дрифт...
kakaxa505505404404
29.08.2022 15:27
Подскажите таблицы по технологии 4 класс рабочая !...
romatopovsky
28.03.2021 20:58
Аниме где гг девушку из под машины и спокойно уходит ...
pumferplay
27.04.2022 10:44
45 если сделаете на украинском языке (мое захопленя народни символы.украинськи сиволи) это длинные нужны мое захопленя про (кулинарию) ...
ulyana14547
01.07.2020 20:14
Право ! ! ! ознайомтеся з витягом із закону україни про захист прав споживачів .визначте,які ви маєте права як споживач, якими є ваші обов язки. проаналізуйте,чи завжди ви...
kyzmina97
04.09.2020 07:51
Вспектрі квазара, фотографічний блиск якого 15m,5 і кутовий діаметр 0 ,03, емісійна лінія водню ηβ з довжиною хвилі 486,1 нм займає положення, що відповідає довжині хвилі...
ГГЧОЧОЧ
01.07.2022 05:12
Тест №4 по теме «природа тел солнечной системы» 1.какая характеристика небесных тел не может быть определена на основе анализа их спектров? а. состав б. температура в. масса...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Если программа не запускается, то обновите версию
uses graphABC;
const
kegl = 40;
var
space, line: integer;
procedure M(cx, cy: integer);
begin
MoveTo(cx, cy);
LineTo(cx, cy - kegl );
LineTo(cx + kegl div 2, cy);
LineTo(cx + kegl, cy - kegl);
LineTo(cx + kegl, cy);
end;
procedure I(cx, cy: integer);
begin
MoveTo(cx, cy - kegl);
LineTo(cx, cy );
LineTo(cx + kegl, cy - kegl);
LineTo(cx + kegl, cy);
end;
procedure R(cx, cy: integer);
begin
MoveTo(cx, cy);
LineTo(cx, cy - kegl);
LineTo(cx + kegl, cy - kegl);
LineTo(cx + kegl, cy - kegl div 2);
LineTo(cx, cy - kegl div 2);
end;
begin
space := kegl div 2;
SetWindowSize(4 * space + 3 * kegl, 4 * space + 3 * kegl );
line := space + kegl;
M(space, line );
I(2 * space + kegl, line );
R(3 * space + 2 * kegl, line );
line := 2 * space + 2 * kegl;
R(space, line );
I(2 * space + kegl, line );
M(3 * space + 2 * kegl, line );
line := 3 * space + 3 * kegl;
M(space, line );
I(2 * space + kegl, line );
M(3 * space + 2 * kegl, line );
end.