Question

Определить, лежит ли точка (x, y) внутри круга с центром в начале координат и радиусом 5.

Answer 1

Нужно:
1. Получить х, у;
2. Проверить не превышают ли они значения 5;
3. Вернуть значение проверки.

Pascal code (проверяет выход за координаты (5; 5)):

var x, y: integer;
beginreadln(x, y);
if (abs(x)<=5) and (abs(y)<=5) then writeln('true')
else if ((abs(x)<=5) and (abs(y)>5)) or ((abs(y)<=5) and (abs(x)>5)) then writeln('false')
else writeln('false');
end.