Введите с клавиатуры целочисленные координаты точки на плоскости (x,y). Выведите '0'
5-9 класс
|
, если точка совпадает с началом координат, '1', если точка лежит на координатных осях, и '2', если точка не лежит на координатных осях.
ПОМОГИТЕ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
var
x,y:real;
begin
writeln ('Введите координаты точки (x,y)');
readln (x,y);
if (x=0) and (y=0) then writeln ('0')
else if (x=0) or (y=0) then writeln ('1')
else writeln ('2');
end.
Другие вопросы из категории
Читайте также
координатных осях, и "2", если точка не лежит на координатных осях.
Пример ввода:
6 0
Пример вывода:
1
его значение. Например, если с клавиатуры введено 6, то на экране мы должны увидеть: 1 2 2 3 3 3 4 4 4 4 5 5 5 5 5 6 6 6 6 6 6
Написать программу нужно как можно проще в программе PascalABC
забеге, но сошел с дистанции, пробежав X км. Сколько времени он затратил но преодоление этой дистанции?
2.Даны две точки на плоскости (х1 ; у1) и (х2; у2). Необходимо определить какая из точек находится дальше (ближе) от начала коорддинатных осей.
3. Написать программу, распознающую по длинам сторон среди всех треугольников прямоугильные.
4. Определить в вещественном числе количество цифр до запятой.
5. В линейной таблице из 16 элементов все числа хранятся в порядке возврастания. Необходимо все числа в таблице расположить в порядке убывания
к началу координат и вывести на экран соответсвующее сообщение
Составьте пожалуста программу в паскале