Для многократного выполнения одинаковых действий в алгоритме нужно использовать: а) ветвление б) цикл в) линейные команды
162
455
Ответы на вопрос:
//PascalABC.NET
uses GraphABC;
var c: integer;
begin
window.IsFixedSize := true;//запрет изменения размера экрана
window.Clear(cllightblue);//очистка экрана синим цветом
pen.Color := clred;//меняем цвет пера на красный
for var i := 0 to 19 do//цикл для отрисовки линий
begin
c := (window.Height div 19) * i;//сдвиг линнии по y
line(0, 0 + c, window.Width, window.Height - c);//рисуем линию
end;
end.
Объяснение:
uses graphabc;
begin
circle(50,50,50);
circle(50,50,20);
circle(150,50,50);
circle(150,50,20);
circle(250,50,50);
circle(250,50,20);
circle(350,50,50);
circle(350,50,20);
circle(450,50,50);
circle(450,50,20);
circle(550,50,50);
circle(550,50,20);
end.
Популярно: Информатика
-
olechkapushkareva04.01.2023 12:35
-
vefremka27.01.2022 22:15
-
Nic574879623706773617.05.2020 11:12
-
bilayenot30.04.2022 09:03
-
nataone713.10.2022 04:27
-
ДуанбекМариям25.10.2021 22:44
-
cygrobik11124.10.2022 23:45
-
yulia626303.03.2022 15:40
-
MashaJummy07.07.2021 05:20
-
DOLBONAFT05.09.2021 01:46