Question

Решите плиз 7 задание
В Паскале
Заранее спасибо

Answer 1

Program n7;
var: x, y, R: real;
begin
readln(x);
readln(y);
readln(R);
if (abs(x)<R) and (abs(y)<R) then do
writeln('принадлежит');
else
writeln('не принадлежит');
end.