Составьте программу в pascal abc которая нарисует - вопрос №5490441 от OxanchikG 05.10.2022 09:50

Question

Информатика: Составьте программу в pascal abc которая нарисует светофор( простой, не мигающий) 25 б.

OxanchikG · Answer

program svetofor;
uses graphabc;
begin setwindowsize (600, 600);
setpencolor (clblack);
setbrushcolor (clblack);
rectangle (90, 90, 210, 450 );
setpencolor (clred);
setbrushcolor (clred);
circle (150, 150, 50);
setpencolor (clyellow);
setbrushcolor (clyellow);
circle (150, 260, 50);
setpencolor (clgreen);
setbrushcolor (clgreen);
circle (150, 370, 50);
setpencolor (clblack);
setbrushcolor (clblack);
rectangle (140, 450, 160, 600);
end