Задание 1. Заполните трассировочную таблицу и определите значение X после выполнения алгоритма.

270

368

Посмотреть ответы 1

Ответы на вопрос:

killme69Lol

Информатика

4,8(31 оценок)

Program man; uses graph; var gd, gm: integer; begin gd: =detect; initgraph(gd, gm, ' '); setfillstyle(1, green); bar(0, 350, 639, 479); setfillstyle(1, lightblue); floodfill(0, 0, green); setcolor(red); circle(320, 200, 19); setlinestyle(0, 0, 3); rectangle(390, 220, 340, 300); line(320, 300, 300, 350); line(320, 300, 340, 350); line(300, 240, 250, 250); line(340, 240, 390, 250); setfillstyle(1, red); floodfill(320, 200, red); floodfill(320, 230, red); setcolor(yellow); circle(315, 190, 2); circle(325, 190, 2); line(315, 210, 325, 210); readln; closegraph; end.