Dãy Số Đặc Biệt

SUBMITTED BY: Guest

DATE: Nov. 29, 2014, 11:56 a.m.

FORMAT: Text only

SIZE: 801 Bytes

Raw Download

HITS: 788

Report
  1. PROGRAM daysodacbiet;
  2. USES crt;
  3. VAR f1,f2:TEXT;a:ARRAY[1..1000] OF WORD; n,k,dem:WORD;
  4. FUNCTION ngto(x:WORD):BOOLEAN;
  5. VAR y:BOOLEAN; i: WORD;
  6. BEGIN
  7. y:=TRUE;
  8. FOR i:=2 TO trunc(sqrt(x)) DO
  9. IF x MOD i= 0 THEN
  10. BEGIN
  11. y:=FALSE;
  12. ngto:=y;
  13. exit;
  14. END;
  15. ngto:=y;
  16. END;
  17. FUNCTION KT(x:WORD):BOOLEAN;
  18. VAR y:BOOLEAN; i:WORD;
  19. BEGIN
  20. y:=FALSE;
  21. FOR i:=1 TO dem DO
  22. IF a[i] MOD x = 0 THEN
  23. BEGIN
  24. y:=TRUE;
  25. KT:=y;
  26. exit;
  27. END;
  28. KT:=y;
  29. END;
  30. BEGIN
  31. assign(f1,'SO.INP');
  32. assign(f2,'SO.OUT');
  33. Reset(f1);
  34. Rewrite(f2);
  35. Readln(f1,n);
  36. dem:=1;
  37. a[1]:=n;
  38. FOR k:=n-1 DOWNTO 1 DO
  39. IF ngto(k) OR KT(k) THEN
  40. BEGIN
  41. dem:=dem+1;
  42. a[dem]:=k;
  43. END;
  44. FOR k:= 1 TO dem DO
  45. Write(f2,a[k],' ');
  46. close(f2);
  47. END.
comments powered by Disqus