Ответы
Ответ дал:
0
Program circle;
uses graphabc;
var
x:integer = 640;
y:integer = 400;
r:integer = 40;
begin
setwindowsize(x,y);
setpencolor(clblack);
setpenwidth(3);
DrawCircle(x div 2,y div 2, r);
setbrushcolor(clred);
FillCircle(x div 2,y div 2, r)
end.
uses graphabc;
var
x:integer = 640;
y:integer = 400;
r:integer = 40;
begin
setwindowsize(x,y);
setpencolor(clblack);
setpenwidth(3);
DrawCircle(x div 2,y div 2, r);
setbrushcolor(clred);
FillCircle(x div 2,y div 2, r)
end.
Ответ дал:
0
Спасибо братан ) Можешь последнению задачу решить на паскаль?)(у меня в вопросах)
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад