пользователь нажимает цифру от 1 до 9 и в случайном месте экрана рисуется кружок с радиусом, соответствующем нажатой цифре. Выход из программы - цифра 0. pascal
Ответы
Ответ дал:
0
uses GraphABC;
var r:integer;
begin
readln (r);
while r<>0 do
begin
Circle(random(631),random(471),r);
readln (r)
end
end.
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад