Нарисовать снеговика. Количество кругов задаётся c клавиатуры. Pascal ABC

Question

Фатима Зайцева

Информатика

25 сентября, 13:00

Нарисовать снеговика. Количество кругов задаётся c клавиатуры. Pascal ABC

+1

Ответы (1)

Знаешь ответ на этот вопрос?

Larri · Answer 1

Uses GraphABC;

var n, y, r, i:integer;

begin

write ('Количество кругов: ');

readln (n);

r:=10;

y:=50;

for i:=1 to n do

begin

brush. color:=clrandom;

circle (250, y, r);

r:=r+10;

y:=y+2*r-10

end

end.