Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  1 r
Language: PASCAL
Code:
Program Triangle;
Uses crt;
Var
x,y:real;
Begin
Clrscr;{очистка экрана}
writeln('x=');read(x);
writeln('y=');read(y);
If(x*x+y*y>=1) and (x*x+y*y<=4)then
writeln('точка принадлежит области')
else
writeln('точка не принадлежит области');
Readkey{ожидание нажатия клавиши}
End.

          
          
Comments: