r

SUBMITTED BY: Guest

DATE: Nov. 13, 2014, 6:21 a.m.

FORMAT: Text only

SIZE: 571 Bytes

Raw Download

HITS: 645

Report
  1. PROGRAM zzz;
  2. USES crt;
  3. VAR x:BYTE;sl:INTEGER; a: ARRAY[1..100] OF LONGINT; i: INTEGER;
  4. FUNCTION GT(x:BYTE): LONGINT;
  5. VAR i : BYTE; y :LONGINT;
  6. BEGIN
  7. y:= 1 ;
  8. FOR i:= x DOWNTO 1 DO
  9. y:= i * y ;
  10. GT:= y;
  11. END;
  12. PROCEDURE TSNT(x:LONGINT);
  13. VAR i,k: LONGINT;
  14. BEGIN
  15. k:= 1;
  16. FOR i:= 2 TO x DO
  17. WHILE x MOD i = 0 DO
  18. BEGIN
  19. x:=x DIV i ;
  20. a[k]:=i;
  21. k:= k+1 ;
  23. END;
  24. k:=sl;
  25. END;
  28. BEGIN
  29. FOR i:= 1 TO sl DO
  30. FOR k:= 2 TO x DO
  31. IF
  33. writeln(GT(6));readln;
  34. END.
comments powered by Disqus