юзер нажимает цифру от 1 до 9 и в случайном

пользователь нажимает цифру от 1 до 9 и в случайном месте экрана рисуется кружок с радиусом, соответствующем нажатой цифре. Выход из программки - цифра 0. pascal

Задать свой вопрос
1 ответ

uses GraphABC;

var r:integer;

begin

readln (r);

while rlt;gt;0 do

begin

Circle(random(631),random(471),r);

readln (r)

end

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт