Advertisement
Guest User

Untitled

a guest
Aug 12th, 2017
57
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.32 KB | None | 0 0
  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.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement