SHARE
TWEET

Untitled

a guest Aug 12th, 2017 40 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program helloworld;
  2. var x,y:real;
  3. BEGIN
  4. write('Vvedite x and y: ');
  5. readln(x,y);
  6. if (((x>=-9) and (x<=-5) and (y=2*x*x)) or ((x>=-5) and (x<=-4) and (y=2)) or ((x>=-4) and (x<=0) and (y=x/2)) or ((x>=0) and (x<=3) and (y=x*x/2)) or ((x>=3) and (x<=4) and (y=2*x))) then  writeln('Nasha tochka') else writeln('Kak uebu');
  7. END.
RAW Paste Data
Top