Số Hữu Nghị

SUBMITTED BY: Guest

DATE: Nov. 15, 2014, 1:26 p.m.

FORMAT: Text only

SIZE: 502 Bytes

Raw Download

HITS: 647

Report
  1. PROGRAM Capsohuunghi;
  2. USES crt;
  3. VAR x:LONGINT ;
  4. a:ARRAY[1..100] OF STRING;
  5. FUNCTION TUT(x:LONGINT):LONGINT;
  6. VAR i,y:LONGINT;
  7. BEGIN
  8. y:=0;
  9. FOR i:=1 TO trunc(x/2) DO
  10. IF x MOD i = 0 THEN y:= y + i ;
  11. TUT:=y;
  12. END;
  13. BEGIN
  14. clrscr;
  15. Writeln('Cac cap so Huu Nghi la : ');
  16. FOR x:=100 TO 10000 DO
  17. IF (x=TUT(TUT(x))) AND (x<>TUT(x)) AND (x<TUT(x))THEN Write(x,' va ',TUT(x),' ; ');
  18. readln;
  19. END.
comments powered by Disqus