SHARE
TWEET

Untitled

a guest Sep 12th, 2019 80 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program Project1;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. {$R *.res}
  6.  
  7. uses
  8.   System.SysUtils;
  9.  
  10. var
  11.    X: Integer;
  12.  
  13. begin
  14.    try
  15.       ReadLn(X); //место где может произойти исключительная ситуация  (например, попробуй ввести символ вместо строки)
  16.    except
  17.       WriteLn('Error!'); //этот код выполнится ТОЛЬКО в случае исключительной ситуации
  18.    end;
  19.    ReadLn;
  20. 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