daily pastebin goal
4%
SHARE
TWEET

Untitled

a guest Oct 21st, 2018 67 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //fpc 3.0.0
  2.  
  3. program HelloWorld;
  4. var
  5.     x1,x2,x3:real;
  6. begin
  7.     x1 := -1;
  8.     x2 := -2;
  9.     x3 := -3;
  10.     repeat
  11.         x3 := x2;
  12.         x2 := x1;
  13.         readln(x1);
  14.     until x1 = 0;
  15.     if x3 > 0 then
  16.         writeln('x положительное')
  17.     else
  18.         writeln('x отрицательное');
  19. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top