Впаскале составьте программу, которая рисует по вертикали вдоль левого края графического окна ряд красных кругов радиуса r, находящихся на расстоянии 10 пикселей друг от друга. составьте программу, которая рисует 5 окружностей голубого цвета с центром в точке (200,200) и радиусами 30,40,50,60,70
131
369
Ответы на вопрос:
program krug; uses graphabc; var x,y,r,i: integer; begin setwindowsize (640,480); setwindowtitle ('êðóã'); setpencolor (clred); setpenwidth (4); x: =50; y: =50; r: =40; for i: =1 to 10 do begin circle(x,y,r); x: =x+80; end; end.
Популярно: Информатика
-
Мне0нужна0помощь09.01.2023 07:15
-
алёночкаааа200525.11.2022 21:06
-
HappyGamerAND300003.04.2021 21:55
-
2002anna230.05.2020 03:27
-
koooooooooo02.01.2021 07:55
-
акылбек505.01.2020 18:42
-
temakurnosov21.04.2022 02:22
-
KoTuK40515.01.2021 14:08
-
liakjv55421116.09.2022 11:50
-
zhenyakudryash22.08.2020 21:38