Помогите нарисовать в паскале букву К, пожалуйста

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

Помогите нарисовать в паскале букву К, пожалуйста


Информатика (15 баллов) | 26 просмотров
Дан 1 ответ
0 голосов
Правильный ответ
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

uses GraphABC;

begin
  Window.SetSize(300,450);
  Pen.Width:=25;
  Line(50,50,50,400);
  Line(50,250,200,50);
  Line(90,200,250,400)
end.

image
(150k баллов)