Question

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

Answer 1

этот номер тебе тоже отправить?

Answer 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.