Question

СРОЧНО нарисуйте машину в паскале abc дам 15 балов!!!!
Мой айди в вк id547202033

Answer 1

Ответ:

program Speed;

uses crt,graph;

Var gd,gm:integer;

begin

clrscr;

detectgraph (gd,gm);

initgraph (gd,gm,'tp\7');

{koleca}

circle (180,330,30);

circle (180,330,40);

circle (450,330,30);

circle (450,330,40);

Line (140,340,60,340);

Line (220,340,412,340);

Line (490,340,520,340);

Line (520,340,520,270);

Line (520,270,390,270);

Line (390,270,360,180);

Line (360,180,210,180);

Line (210,180,150,270);

Line (150,270,60,270);

Line (60,270,60,340);

Readln

end.

вставь в паскаль и проверь)