===== PascalABC.NET =====
begin
var a := ReadReal('Задайте a - сторону квадрата:') / 2;
var (x, y) := ReadReal2('Задайте координаты точки:');
if (Abs(x) >= -a) and (Abs(y) <= a) then
Print('Точка принадлежит квадрату')
else
Print('Точка не принадлежит квадрату')
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
===== PascalABC.NET =====
begin
var a := ReadReal('Задайте a - сторону квадрата:') / 2;
var (x, y) := ReadReal2('Задайте координаты точки:');
if (Abs(x) >= -a) and (Abs(y) <= a) then
Print('Точка принадлежит квадрату')
else
Print('Точка не принадлежит квадрату')
end.