Question

Выяснить принадлежит ли точка x,y кольцу с внешним радиусом r1 и внутренним радиусом r2.(Pascal ABC) и построить блок схему

Answer 1

Program a;
var r1, r2, x, y: integer;
begin
    writeln('Введи r1 и r2');
    readln(r1, r2);
    writeln('Введи x и y');
    readln(x, y);
    if ((x*x + y*y >= r2*r2) and (x*x + y*y <= r1*r1)) then
        writeln('Принадлежит')
    else writeln('Не принадлежит');
end.