立即注册(注册审核可向QQ群索取) 登录
Lazarus中文社区 返回首页

摇摆兔的个人空间 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.

QQ|手机版|小黑屋|Lazarus中国|Lazarus中文社区 ( 鄂ICP备16006501号-1 )

GMT+8, 2024-6-15 23:16 , Processed in 0.012994 second(s), 2 queries , Redis On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部