摇摆兔的个人空间 https://www.fpccn.com/?9884 [收藏] [复制] [RSS]

留言板

摇摆兔 2015-9-14 18:14: PROGRAM EXAMPLE_1;
VAR F,I,RESULT:INTEGER;
BEGIN
      READLN (F);
      I:=5; RESULT:=0;
      WHILE(I<=F) DO BEGIN
            RESULT:=RESULT+(F DIV I);
            I:=I*5;
      END;
      WRITE(RESULT);
END.

GMT+8, 2025-7-3 11:38 , Processed in 0.030055 second(s), 2 queries , Redis On.