Ответы на вопрос:
Program grapho; uses crt ,graphabc; var xc ,yc ,r1 ,r2 ,rc ,ro ,n ,i ,x ,y : integer; a : real; begin repeat write ( 'количество отверстий от 3 до 7 n=' ); read (n ); until n in [3..7 ]; clrscr; hidecursor; xc : =windowwidth div 2; yc : =windowheight div 2; r1 : = 50; r2 : = 150; rc : = 100; ro : = 30; a : =2 *pi /n; circle (xc ,yc ,r2 ); circle (xc ,yc ,r1 ); for i : =1 to n do begin x : =xc +round (rc * cos (a *i ) ); y : =yc -round (rc * sin (a *i ) ); circle (x ,y ,ro ); end; end.
Популярно: Информатика
-
Sultan739305.02.2021 18:08
-
Sofa135112.03.2023 09:54
-
Vanea22817.04.2023 21:12
-
LeMuRkA22814.01.2023 06:05
-
shkolnik2281719.02.2022 08:20
-
илья194814.08.2020 15:26
-
Crazy2daisy28.11.2020 23:33
-
Aly600002.06.2022 08:54
-
KekPekCheburek07.07.2020 00:02
-
angelinakunda10.02.2020 19:34