tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Получить векторное представлкние
Получить векторное представлкние всех десятичных цифр в стандарте почтового индекса ( как пишут на конвертах) цифры от 0 до 9 , я вас умоляю, я честно не знаю как это делать, мозг уже сломала вас, я выберу вас лучшим ответам если !
kostina68
1 21.07.2019 02:30
1
Ответы
мартина
03.10.2020 09:19
// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
uses GraphABC;
begin
Pen.Width:=3;
// 0
DrawRectangle(20,20,70,120);
// 1
Line(90,70,140,20);
Line(140,20,140,120);
// 2
MoveTo(160,20);
LineTo(210,20);
LineTo(210,70);
LineTo(160,120);
LineTo(210,120);
// 3
MoveTo(230,20);
LineTo(280,20);
LineTo(230,70);
LineTo(280,70);
LineTo(230,120);
// 4
MoveTo(300,20);
LineTo(300,70);
LineTo(350,70);
Line(350,20,350,120);
// 5
MoveTo(70,140);
LineTo(20,140);
LineTo(20,190);
LineTo(70,190);
LineTo(70,240);
LineTo(20,240);
// 6
Line(90,190,140,140);
DrawRectangle(90,190,140,240);
// 7
MoveTo(160,140);
LineTo(210,140);
LineTo(160,190);
LineTo(160,240);
// 8
DrawRectangle(230,140,280,240);
Line(230,190,280,190);
// 9
DrawRectangle(300,140,350,190);
Line(350,190,300,240)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ngjjndnd
08.02.2021 13:10
Изучи Изображения определи условия в блоке ,при котором робот произнесёт...
Sharjnik
19.06.2019 04:50
8класс, паскаль циклы! решить ! 1 - составить программу которая выведет на экран все нечетные числа от 1 до n. 2 - определить количество трехзначных натуральных чисел сумма...
skubelinavika
19.04.2020 16:11
Напишите программу в которой размер окна будет 500 на 600 в заголовке написано: Моя первая программа , цвет окна голубой.Язык [Python]...
Goshavasa
19.04.2020 16:10
Дано описание массива:consta:array[1..3]ofinteger=(10,9,57);верно или неверно...
Mаjоr
19.04.2020 16:10
Задача с++ Ввести целое число и определить, верно ли, что все его цифры чётные Пример: Введите число: 2684: да...
HaGiNg
19.04.2020 16:09
Задание 1 В линейном массиве целых чисел, содержащем 20 элементов, добавить элемент массива 17 на k-ое место массива. Массив заполняется случайным образом числами от 0...
Lenokguryhr
26.02.2019 21:40
Поясните разницу между технической моделью самолета и информационной моделью самолета(чертежом)...
mn197
15.01.2021 10:20
Найвідоміший харківський філософ 18 ст...
светлана440
15.01.2021 10:20
какие факты биографии Пушкина нашли отражение в произведении 19 ОКТЯБРЯ ?...
rkarina79
15.01.2021 10:20
4 тапсырма 12 Бет придумайте названия и составьте план к тексту...
Популярные вопросы
Напишите красочное сочинение (3-5 предложений) про зимний дворец....
3
Розташуйте газуваті речовини в ряд за зростанням їхньої відносної густини...
3
Начертить отрезок ав длина которого 10 см построить отрезок сд длина...
3
Сколько клеток имеет таблица в которой : а)7 столбцов и 5 строк б) 5...
3
Ссоставить одно общее и одно специальное предложения his brothers are...
1
Обчисліть кількість атомів карбону що містяться в бутані об ємом 56...
2
ответьте. в детском саду 52 ребёнка. каждый из них любит конфеты или...
2
Запишите пословицы вставля пропущеные буквы .определение род,число и...
3
Чем отличается современный человек от обезьяны...
3
Какая из перечисленных областей является одним из главных регионов производства...
3
uses GraphABC;
begin
Pen.Width:=3;
// 0
DrawRectangle(20,20,70,120);
// 1
Line(90,70,140,20);
Line(140,20,140,120);
// 2
MoveTo(160,20);
LineTo(210,20);
LineTo(210,70);
LineTo(160,120);
LineTo(210,120);
// 3
MoveTo(230,20);
LineTo(280,20);
LineTo(230,70);
LineTo(280,70);
LineTo(230,120);
// 4
MoveTo(300,20);
LineTo(300,70);
LineTo(350,70);
Line(350,20,350,120);
// 5
MoveTo(70,140);
LineTo(20,140);
LineTo(20,190);
LineTo(70,190);
LineTo(70,240);
LineTo(20,240);
// 6
Line(90,190,140,140);
DrawRectangle(90,190,140,240);
// 7
MoveTo(160,140);
LineTo(210,140);
LineTo(160,190);
LineTo(160,240);
// 8
DrawRectangle(230,140,280,240);
Line(230,190,280,190);
// 9
DrawRectangle(300,140,350,190);
Line(350,190,300,240)
end.