fork download
copy 
  1. program code1;
  2. var x,y:real;
  3. begin
  4.   //writeln('x=');
  5.   read(x);
  6.   writeln('x=',x:4:2);
  7.   //writeln('y=');
  8.   read(y);
  9.   writeln('y=',y:4:2);
  10.   if (x<=0) and (y>=0) and (y<x+5) then
  11.      writeln('указанные координаты находятся в диапазонах плоскости')
  12.   else
  13.       writeln('указанные координаты находятся вне диапазонах плоскости');
  14. end.   
  15.  
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
0 0
stdout
copy 
x=0.00
y=0.00
указанные координаты находятся в диапазонах плоскости
https://ideone.com/sjAusU
language:
Pascal (fpc 3.0.4)
created:
1 day ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!