Задачи в паскале

Составьте программу, которая рисует по вертикали вдоль левого края графического окна ряд красных кругов радиуса R, находящихся на расстоянии 10 пикселей друг от друга.

Составьте программу, которая рисует 5 окружностей голубого цвета с центром в точке (200,200) и радиусами 30,40,50,60,70

Ответы (1)

Евлантий 14.04.2025 2

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.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика: