tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Как нарисовать оленя
Как нарисовать оленя в pascal abc ?
vugarjalilovp0ci9p
1 30.08.2019 12:50
4
Ответы
НМИ2003
06.10.2020 05:06
Uses graphABC;
begin
setwindowsize(600,500);
setbrushcolor(clMedGray);
Ellipse(320,30,490,400);
Ellipse(120,30,300,400);
setbrushcolor(clCream);
Ellipse(335,40,480,380);
Ellipse(140,40,280,380);
setbrushcolor(clMedGray);
Ellipse(100,430,500,130);
setbrushcolor(clNavy);
Ellipse(250,240,200,310);
Ellipse(350,240,400,310);
setbrushcolor(clwhite);
Ellipse(240,270,220,300);
Ellipse(360,270,380,300);
setbrushcolor(clblack);
Ellipse(270,330,330,370);
line(300,370,300,400);
Arc(300,280,120,220,-40);
line(50,350,200,350);
line(30,340,190,340);
line(10,330,180,330);
line(410,330,570,330);
line(400,340,560,340);
line(390,350,550,350);
line(240,230,220,150);
line(230,230,180,80);
line(220,230,180,150);
line(360,230,380,150);
line(370,230,430,80);
line(380,230,430,150);
end.
Эта
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ДимаИванов11
15.09.2019 20:08
натуральное число называется числом армстронга, если сумма цифр числа, возведенных в k -ю степень (где k – количество цифр в числе) равна самому числу. например, 153 = 1...
Kotic777
15.09.2019 20:07
последовательность состоит из натуральных чисел и завершается числом 0. всего вводится не более 1 чисел (не считая завершающего числа 0). определите, сколько элементов...
aiphone20032
15.09.2019 21:20
Задай одномерный массив х [1..15]. определить сумму четных положительных элементов массива, заполненного случайными числами из интервала от (-10)5] паскаль...
kaanekiken
15.09.2019 21:20
Вывести все простые трехзначные числа через паскаль program z5; uses crt; var x, i, k : integer; begin for i: =100 to 999 do for x: =1 to i-100 do if i mod x=0 then k:...
ketti336
15.09.2019 21:20
Впервом веке до нашей эры цезарь для шифрования сообщений использовал следующий каждая буква алфавита заменялась другой буквой алфавита заменялась другой буквой,из этого...
Papyas3
15.09.2019 19:56
Жағдаяттық тапсырма. жандосқа дұрыс кеңес ұсыныңдар....
АнгелокN1
15.09.2019 19:55
1. довжина двійкового коду тексту, набраного на комп ютері з використаннямкодування unicode (кожний символ кодується 16 бітами), — 4 кб. визначтекількість символів у...
Egolaspro
15.09.2019 21:20
Вывести все простые трехзначные числа через паскаль...
Милаха84
15.09.2019 19:39
7класс. ивт. сравнить память компьютера и человека....
dcveergh
15.09.2019 19:33
Составить программу вычисления значений функции y = f (x) на промежутке ( a, b) с шагом h (на языке basic): f (x)=cos (x2) + 5/x3 - 2 a=0 b=2 h=0,12 quick basic или visual...
Популярные вопросы
Найди наибольшее значение функции y=0.5x2 на отрезке [0;2]....
2
Не дёрн_те случайно рычаг. Как только дёрн_те рычаг,машина поедет....
3
. Записать бесконечные десятичные периодические дроби в виде обыкновенных...
2
Верны ли следующие утверждения? (да\нет) 1)Флизелиновые обои скрывают...
3
с во очень мало времени осталось...
2
Из шахты подняли клеть с углём со скоростью 2 м/с. Вычисли КПД подъёмника,...
2
ПрямаяABкасается окружности с центром в точке О, А - точка касания....
1
В магазин завезли овощи. Две девятых всех овощей - капуста, а пять...
1
В кодировке Unicode на каждый символ отводится два байта. Определи...
3
Бетховин симфония 5 средства выразительности...
2
begin
setwindowsize(600,500);
setbrushcolor(clMedGray);
Ellipse(320,30,490,400);
Ellipse(120,30,300,400);
setbrushcolor(clCream);
Ellipse(335,40,480,380);
Ellipse(140,40,280,380);
setbrushcolor(clMedGray);
Ellipse(100,430,500,130);
setbrushcolor(clNavy);
Ellipse(250,240,200,310);
Ellipse(350,240,400,310);
setbrushcolor(clwhite);
Ellipse(240,270,220,300);
Ellipse(360,270,380,300);
setbrushcolor(clblack);
Ellipse(270,330,330,370);
line(300,370,300,400);
Arc(300,280,120,220,-40);
line(50,350,200,350);
line(30,340,190,340);
line(10,330,180,330);
line(410,330,570,330);
line(400,340,560,340);
line(390,350,550,350);
line(240,230,220,150);
line(230,230,180,80);
line(220,230,180,150);
line(360,230,380,150);
line(370,230,430,80);
line(380,230,430,150);
end.
Эта