Ask___
Advice
Главная
О сервисе
О нас
Правила пользования сайтом
Авторское право
Политика конфиденциальности
Задать вопрос
Искать
Главная
Информатика
Ответы на вопрос
Анна Елена
11.01.2023
?>
САНДЫК ДЕРЕКТЕР МЕН МАТИН ТИПИНИН ЕРЕКШЕЛИГИ НЕДЕ ?
Информатика
Ответить
Ответы
Людмила902
11.01.2023
Вот программа с елкой:
Uses GraphABC;
Begin
SetWindowSize(600,400);
line(250,100, 300,50);
lineto(350,100);
lineto(250,100);
floodfill(300,70, clgreen);
line(220,200, 300,100);
lineto(380,200);
lineto(220,200);
floodfill(300,150, clgreen);
line(200,300, 300,200);
lineto(400,300);
lineto(200,300);
floodfill(300,250, clgreen);
rectangle(290, 300,310, 320);
floodfill(300,305, clbrown);
line(0, 300, 100, 350);
lineto(200, 320);
lineto(400, 320);
lineto(600, 370);
lineto(600,400);
lineto(0,400);
lineto(0,300);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
САНДЫК ДЕРЕКТЕР МЕН МАТИН ТИПИНИН ЕРЕКШЕЛИГИ НЕДЕ ?
Ваше имя (никнейм)*
Email*
Комментарий*
Согласен с
политикой конфиденциальности
Отправить вопрос
Популярные вопросы в разделе
У школі 3 дев'яті класи. Від кожного класу в кросі на 1 км беруть участь по 4 учні. Опишіть відповідний двовимірний масив, який буде містити результати забігу учасників. Зобразіть цей масив. Врахуйте...
Автор: thedoomsdatdcs36
Вычисли сумму чисел в MS Excel. 1. 212; 19; 1544; 98, 7 2. 212; 19; 1544; 98, 7; 57, 6
Автор: shpakohat
Найти сумму 4+9++m^2, лишь из слагаемых, меньших k.
Автор: qwert28027170
Решите : 1) сообщение занимает 4 страницы и содержит 64 байта информации. на каждой странице записано 128 символов. какова мощность алфавита? 2) сообщение, записанное 32 символьным алфавитом, содерж...
Автор: amxvel7596
4. написать программу, которая вводит массив из n целых чисел и выводит на экран сам массив и сумму всех его элементов. протестировать программу на следующих массивах: а) 1 3 4 -2 б) 0 1 -2 10 11 12 ...
Автор: Мария1414
Программа: ввести пятизначное число и найти сумму его цифр.
Автор: gardenkafe
Сочинение на тему: Представление чисел
Автор: Dmitrievna Lvovich
Среди множеств "книга", "бензин", "врач", "молоко", "строитель" , "учебник", "жидкость" , "справочник" , "человек", найдите шесть пар, между которыми существует отношение "является разновидностью...
Автор: nikziam
Написать инструкцию вывода значений переменных абс значение каждой переменной должно быть выведено на отдельной строке
Автор: Less2014
Напишите подробнее решение и таблицу, полученную схему(важно) из интернета не принимается
Автор: Николаевна Филиппов1936
Какой минимальный объем (в кбайт) нужно зарезервировать , чтобы можно было сохранить любое растровое изображение размером 64 на 64 пикселей при условии , что в изображений могут использоваться 256 р...
Автор: Prostofil200790
Задача 1. Определить размер звукового файла в мегабайтах (при необходимости ответ округлить до одного знака после запятой: Разрешение звуковой карты - 2 байта Частота дискретизации звука - 44, 1 К...
Автор: Yelena-Svetlana
Выполните программу и ответьте на следующие вопросы Program Demo1; Var F, N:real; Begin N:=5; While N<=6 do Begin F:=sqr(N)+sqrt(N)/(N-24); Writeln(F:7:4); N:=N+0.1; End; End. 1. Сколько раз выполн...
Автор: khar4550
Всуществующем файле, элементами которого являются отдельные слова, изменить на заданное слово: а) первое слово; б) третье слово; в) s-е слово; г) последнее слово. новое слово вводится с клавиатуры.
Автор: Шапкина1531
Информатика 7 класс 1.программа для проведения досуга(4 буквы) … 2. устройство ввода-вывода информации с дисков(8 букв) … 3. программа, позволяющая натренироватся в чём-либо(8 букв, последняя р) … 4...
Автор: sychevao19975
▲
Uses GraphABC;
Begin
SetWindowSize(600,400);
line(250,100, 300,50);
lineto(350,100);
lineto(250,100);
floodfill(300,70, clgreen);
line(220,200, 300,100);
lineto(380,200);
lineto(220,200);
floodfill(300,150, clgreen);
line(200,300, 300,200);
lineto(400,300);
lineto(200,300);
floodfill(300,250, clgreen);
rectangle(290, 300,310, 320);
floodfill(300,305, clbrown);
line(0, 300, 100, 350);
lineto(200, 320);
lineto(400, 320);
lineto(600, 370);
lineto(600,400);
lineto(0,400);
lineto(0,300);
end.