Создать программу, которая определяет, используя введенные координаты, принадлежит ли точка кругу, ограниченному единичной окружностью?

Var   x, y: real; begin   writeln('введите координаты точки');   readln(x, y);   write('точка с координатами (', x, ', ', y, ') ');   if sqr(x) + sqr(y) > 1 then write('не ');   writeln('принадлежит области, ограниченной окружностью единичного радиуса') end. пример выполнения в среде pascalabc.net: введите координаты точки 0.2 0.4 точка с координатами (0.2, 0.4) принадлежит области, ограниченной окружностью единичного радиуса введите координаты точки -0.4 2 точка с координатами (-0.4, 2) не принадлежит области, ограниченной окружностью единичного радиуса

#include <iostream>

using namespace std;

int main()

{

   int N, x, y;

   cin >> N >> x >> y;

   for (int i = x; i <= N; i += y)

   {

       cout << i << " ";

   }

}

Объяснение:

#include <iostream> // Библиотека ввода - вывода

using namespace std; // Пространство имён

int main()

{

   int N, x, y; // Объявление целочисленных переменных по условию

   cin >> N >> x >> y; // Ввод значений переменных с клавиатуры по условию

   for (int i = x; i <= N; i += y) // Начинаем с x, идем до N [включительно], с шагом в y

   {

       cout << i << " "; // Выводим значения через пробел

   }

}

program znanija;

begin

 var x := readinteger();

 var y := readinteger();

 var z := readinteger();

 writeln('Сумма = ', x + y + z);

 writeln('Произведение = ', x * y * z);

 writeln('Сумма квадратов = ', sqr(x) + sqr(y) + sqr(z));

 writeln('Среднее арифметическое = ', (x + y + z) / 3);

end.

Объяснение:

Функция sqr() возводит число в квадрат.

Среднее арифметическое = сумма чисел ÷ количество чисел

program znanija;  // Название программы

begin  // Начало программы

 var x := readinteger();  // Объявление переменной x и считывание целочисленного числа с клавиатуры

 var y := readinteger();  // Объявление переменной y и считывание целочисленного числа с клавиатуры

 var z := readinteger();  // Объявление переменной z и считывание целочисленного числа с клавиатуры

 writeln('Сумма = ', x + y + z);  // Вывод суммы

 writeln('Произведение = ', x * y * z);  // Вывод произведения

 writeln('Сумма квадратов = ', sqr(x) + sqr(y) + sqr(z));  // Вывод суммы квадратов

 writeln('Среднее арифметическое = ', (x + y + z) / 3);  // Вывод среднего арифметического

end. // Конец программы