Pascal. Написать программу, определяющую принадлежит ли точка (x,y( фигуре X"+Y"

Question

Pascal. Написать программу, определяющую принадлежит ли точка (x,y( фигуре X"+Y"<5" = "-квадрат

Владимир Андрианов · Accepted Answer

Не знаю, как там на паскале но на С это выглядит следующим образом:

#include
#include
#include
int main()
{
float x, y, a;
puts("Vvedite x i y");
scanf("%f%f", &x, &y);
a=(pow(x,2))+ (pow(y, 2));
if (a<25)
{puts("Prinadlejit"); }
else{puts("Ne Prinadlejit"); }
}

Рёрјсџ · Answer

Program pr_1; 
uses crt; 
var x, y: integer; 
begin 
Writeln ('Введите х и у'); 
readln (x, y); 
if 25>sqr(x)+sqr(y) then writeln ('Точка принадлежит') 
else writeln ('Не принадлежит'); 
end. 
 
пременные вводи через пробел