SHARE
TWEET

Untitled

a guest Dec 8th, 2019 78 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //fpc 3.0.0
  2.  
  3. program P12;
  4. var m, n : integer;
  5.     k: real;
  6.     procedure P(var x:integer; y:integer; var z:real);
  7.         function f(h:integer):integer;
  8.             begin
  9.             f:=sqr(h)+2;
  10.             end;
  11.      begin
  12.      x:=f(x)+y;
  13.      y:=x+f(2);
  14.      z:=y mod x;
  15.      writeln(x,'',y,'',z:0:0);
  16.      end;
  17. begin
  18.     n:=4;
  19.     m:=1;
  20.     k:=2;
  21.     P(m,n,k);
  22.     writeln(m,'',n,'',k:0:0);
  23.     P(m,n,k);
  24.     writeln(m,'',n,'',k:0:0);
  25.        
  26. 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