Question

Сдать решение задачи C-Треугольник
Имя входного файла: triangle.in или стандартный поток ввода
Имя выходного файла: triangle.out или стандартный поток вывода
Ограничение времени: 1 с
Ограничение памяти: 256M
Треугольник

На координатной плоскости расположены равнобедренный прямоугольный треугольник ABC с длиной катета d и точка X. Катеты треугольника лежат на осях координат, а вершины расположены в точках: A(0,0), B(d,0), C(0,d). Требуется написать программу, которая определяет взаимное расположение точки X и треугольника. Если точка X расположена внутри или на сторонах треугольника, выведите 1. Если же точка находится вне треугольника, выведите 0.
Формат входных данных

В первой строчке вводится натуральное число d (не превосходящее 1000), во второй - координата точки X по оси OX (целое число из диапазона от -1000 до 1000), в третьей координата точки X по оси OY (целое число из диапазона от -1000 до 1000).
Формат результата

Если точка лежит внутри, на стороне треугольника или совпадает с одной из вершин, то выведите число 1. Если точка лежит вне треугольника, то выведите 0.

Ответ можно на любом языке программирования.

Answer 1

Ответ:

program temp;

var

 d, x, y: Double;

begin

 Write ('d, x, y: ');

 ReadLn (d, x, y);

 if (x >= 0) and (y >= 0) and (x + y <= d) then

   WriteLn (1)

 else

   WriteLn (0);

 ReadLn;

end.