Составе программу которая рисует 5 окружностей голубого цвета , с центром в точке (200,200) радиусами 30, 40 , 50 , 60 , 70 . Pascal ABC
Ответы
Ответ дал:
0
uses graphABC;
var k,i:integer;
begin;
k:=80;
setpencolor(RGB(0,0,255));
for i:=1 to 5 do
begin;
k:=k-10;
circle(200,200,k);
end;
end.
var k,i:integer;
begin;
k:=80;
setpencolor(RGB(0,0,255));
for i:=1 to 5 do
begin;
k:=k-10;
circle(200,200,k);
end;
end.
Ответ дал:
0
Через цикл ( for dо и т.д
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад