• ИНФОРМАТИКА.ПАСКАЛЬ.ТЕМА:Цикл со счётчиком
    Нарисовать N концентрических окружностей. N вводится с клавиатуры.

    question img

Ответы 2

  • uses graphabc;procedure vvod(var n: integer);//процедура ввода переменнойbegin  writeln('Введите число n:');//запрос на ввод n  read(n);//считывание переменнойend;procedure circle(n: integer);//процедура рисования концентрических круговvar  i,r: integer;begin  r:=10;//присваивание значения отступа  for i:=1 to n do  begin    drawcircle(200,200,r);//рисование круга    r:=r+10;//изменение отступа  end;end;var  n: integer;begin  vvod(n);//ввод переменной  Circle(n);//рисование концентрических круговend.
    • Автор:

      ringo
    • 6 лет назад
    • 0
  • этот номер тебе тоже отправить?
    • Автор:

      kerry
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years