Advertisement
Laster_Alex

KV4

Feb 15th, 2022
93
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.12 KB | None | 0 0
  1. Program _1;
  2.  
  3. var n, p, i :longint;
  4.  
  5. begin
  6.  
  7. read(n);
  8.  
  9. p:=1;
  10.  
  11. for i:=1 to n do
  12.     p:=i*p;
  13.  
  14. write(p)
  15. end.
  16.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement