Помогите пожалуйста нарисовать треугольник в Pascal ABC

0 голосов
85 просмотров

Помогите пожалуйста нарисовать треугольник в Pascal ABC

Информатика (15 баллов) | 85 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Решите задачу:

Uses \ GraphAbc; \\ Var \ x1,x2,x3,y1,y2,y3:Integer; \\ Begin \\ \ x1:=100; \ y1:=100; \\ \ x2:=300; \ y2:=50; \\ \ x3:=250; \ y3:=200; \\ \ Line(x1,y1,x2,y2); \\ \ LineTo(x3,y3); \\ \ LineTo(x1,y1); \\ End.
(5.2k баллов)
Похожие задачи