ЗОЯ
5 год назад
Составить программу ,которая будет рисовать букву 'К'
ОТВЕТЫ
Mariya
Oct 24, 2020
Program K;
uses GraphABC;
begin
SetWindowWidth(800);
SetWindowHeight(600);
SetFontColor(clBlack);
SetFontSize(18);
SetPenWidth(3);
SetFontStyle(fsBold);
Line(200,400,200,200);
Line(200,300,300,200);
Line(200,300,300,400);
end.
uses GraphABC;
begin
SetWindowWidth(800);
SetWindowHeight(600);
SetFontColor(clBlack);
SetFontSize(18);
SetPenWidth(3);
SetFontStyle(fsBold);
Line(200,400,200,200);
Line(200,300,300,200);
Line(200,300,300,400);
end.
282
Смежные вопросы:
