Нарисовать N концентрических окружностей с минимальны радиусом r и максимальным радиусом R c центром с координатами X и Y. N, r, R, X, Y вводятся с клавиатуры. pascal abc

Решение. Введем следующие обозначения: N - количество окружностей; X, Y - координаты центра окружностей; max - максимальный радиус; min - минимальный радиус; i - параметр, который будет принимать значения радиусов от max до min. Тогда программа на языке программирования Pascal ABC может выглядеть так:

Program zadacha;

Uses crt, graphABC;

var i, X, Y, max, min, N:integer;

begin

clrscr;

write ('Vvedite kolichestvo okrugnostej N:');

readln (N);

write ('Vedite koordinatu X:');

readln (X);

write ('Vedite koordinatu Y:');

readln (Y);

write ('Vedite radius max:');

readln (max);

write ('Vedite radius min:');

readln (min);

SetWindowSize (800,600);

for i:=max downto min do

begin

if n=0 then break;

if (n=1) then circle (X, Y, min) else

circle (X, Y, i);

i:=i-5;

n:=n-1;

end;

end.