Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //v := (5*8!)/(4^n);
- var
- q, f8, i, z, n, Sum: integer;
- begin
- f8 := 5;
- for i := 1 to 8 do
- f8 := f8 * i;
- //writeln(f8);
- readln(n);
- q := 1;
- for i := 1 to n do
- q := q * 4;
- writeln(q);
- writeln(f8 / q);
- end.
Advertisement
Add Comment
Please, Sign In to add comment