Составьте для чертёжника алгоритм рисования равнобедренного треугольника, если известны координаты концов отрезка, являющегося его высотой: (4; 1) и (4; 6), а также координаты (2; 1) одной из его вершин. заранее .
Использовать Чертежник алг нач сместиться на вектор(2,1) опустить перо сместиться на вектор(2,5) сместиться на вектор(2,-5) сместиться на вектор(-4,0) кон
// PascalABC.NET 3.2, сборка 1341 от 20.11.2016 begin var a:=ArrRandom(15,-10,30); a.Println; var b:=ArrRandom(25,-10,30); b.Println; var ma:=a.Where(x->x.IsEven).Max; var mb:=b.Where(x->x.IsEven).Max; if ma>mb then WritelnFormat('Максимум четных 1-го массива {0} больше 2-го {1}',ma,mb) else if mb>ma then WritelnFormat('Максимум четных 1-го массива {0} меньше 2-го {1}',ma,mb) else Writeln('Максимумы четных элементов в массивах равны ',ma) end.
алг
нач
сместиться на вектор(2,1)
опустить перо
сместиться на вектор(2,5)
сместиться на вектор(2,-5)
сместиться на вектор(-4,0)
кон