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

Question

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

Информатика

11 ноября, 05:58

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

+3

Ответы (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.