boris-vlasenko

Untitled

Jan 23rd, 2016
220
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.25 KB | None | 0 0
  1. //v := (5*8!)/(4^n);
  2. var
  3.   q, f8, i, z, n, Sum: integer;
  4.  
  5. begin
  6.   f8 := 5;
  7.   for i := 1 to 8 do
  8.     f8 := f8 * i;
  9.   //writeln(f8);
  10.  
  11.   readln(n);
  12.   q := 1;
  13.   for i := 1 to n do
  14.     q := q * 4;
  15.   writeln(q);  
  16.  
  17.   writeln(f8 / q);
  18. end.
Advertisement
Add Comment
Please, Sign In to add comment