Лучший ответ
-
0 0
Женя (35) 7 (39320)538136 13 лет
program circle;
uses Crt;
var a, b: integer;
begin;
circle(a,b,3);
k:readkey;
end.
Ответы
-
0 0
Pokkka (33) 5 (3908)1018 13 лет
Ну круги рисовать без графа это полное извращение)
А как учили это
Uses Graph;
Var Gd, Gm : Integer;
Begin
Gd:=Detect;
InitGraph(Gd, Gm, '');
If GraphResult<>grOk Then Halt(1);
Circle(300, 300, 120);
ReadLn;
CloseGraph;
End.
