Задать вопрос
ИнформатикаИнформатика
25 марта, 12:20

Тем, кто работает с Pascal ABC! Не заливается хобот у слона. В чем проблема? Program elephant_Meri_13; uses graphABC; begin setwindowsize (500,500); setpenwidth (8); arc (150,300,100,0,180); arc (360,250,80,160,360); arc (370,240,60,160,360); line (443,252,428,242); setbrushcolor (clgray); circle (250,150,100); line (50,300,50,450); line (50,450,140,450); line (140,450,140,400); line (140,400,160,400); line (160,400,160,450); line (160,450,250,450); line (250,450,250,300); line (50,290,10,370); FloodFill (60,400, clgray); setpenwidth (3); circle (150,300,98); circle (250,150,98); setbrushcolor (clwhite); circle (300,180,20); setpenwidth (8); setbrushcolor (clskyblue); circle (300,175,10); end.

+5
Ответы (1)
  1. 25 марта, 15:48
    0
    Program elephant_Meri_13;

    uses graphABC;

    begin

    setwindowsize (500,500);

    setpenwidth (8);

    arc (150,300,100,0,180);

    arc (360,250,80,160,360);

    arc (370,240,60,160,360);

    line (443,252,428,242);

    setbrushcolor (clgray);

    circle (250,150,100);

    line (50,300,50,450);

    line (50,450,140,450);

    line (140,450,140,400);

    line (140,400,160,400);

    line (160,400,160,450);

    line (160,450,250,450);

    line (250,450,250,300);

    line (50,290,10,370);

    FloodFill (60,400, clgray);

    setpenwidth (3);

    circle (150,300,98);

    circle (250,150,98);

    setbrushcolor (clwhite);

    circle (300,180,20);

    setpenwidth (8);

    setbrushcolor (clskyblue);

    circle (300,175,10);

    FloodFill (320,290, clgray);

    end.

    Ошибка исправлена
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Тем, кто работает с Pascal ABC! Не заливается хобот у слона. В чем проблема? Program elephant_Meri_13; uses graphABC; begin setwindowsize ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
Что напечатает следующая программа? program p3; var x, y:integer; procedure p1 (var a, b:integer); begin a:=sqr (a); b:=sqr (a) + a; end; procedure p2 (a, b:integer); begin a:=sqr (a); b:=sqr (b) + b; end; begin x:=2; y:=2; p1 (x, y);
Ответы (1)
6) Определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin s : = 0; for n:=4 to 13 do begin s : = s + 15; end; write (s) end.
Ответы (1)
В какой строчке допущена ошибка в программе, написанной на языке PascalABC? Программа должна высчитывать корни квадратного уравнения при заданных значениях коэффициентов a, b, c.
Ответы (1)
Добавить пояснения к каждой строчке задачи Program z1; var i, j: byte; begin for i:=1 to 9 do begin for j:=1 to 9 do write (i*j:4); writeln; end; end.
Ответы (1)
Написать пояснения к каждой строчке задачи Program z3; var i, j, s: word; begin for i : = 1 to 10000 do begin s : = 0; for j:=1 to i div 2 do if i mod j = 0 then s : = s+j; if s = i then write (i,' '); end; writeln; readln; end.
Ответы (1)
Нужен ответ
Из данных слов Выпиши имена существительные сильный зима, найти, дерево, рисовать, красивый, воробей, река, ручной, решать, подснежник, показаться.
Нет ответа
В санатории привезли апельсины мандарины и лимоны апельсины составляет пять четырнадцатых всех фруктов мандарины восемь 21-й, а лимоны остальные 99 кг сколько килограммов фруктов привезли в санаторий
Нет ответа
Расположите числа 5,28; - 1,634; - 1,34; - 1, (3); 2,3 (4) и 2, (34) в порядке убывания
Нет ответа
сравнить природные условия финикии древнего египта и индии
Нет ответа
Расстояние между двумя пунктами 40 км. Из одного из них в другой одновременно въезжают автобус и велосипедист. Скорость автобуса 50 км в час, велосипедиста 10 км в час.
Нет ответа
Главная » Информатика » Тем, кто работает с Pascal ABC! Не заливается хобот у слона. В чем проблема? Program elephant_Meri_13; uses graphABC; begin setwindowsize (500,500); setpenwidth (8); arc (150,300,100,0,180); arc (360,250,80,160,360); arc (370,240,60,160,360);
Регистрация Забыл пароль