总是编译错误，找不到原因

摇摆兔

1. PROGRAM CONSECUTION;
   
2. VAR N:INTEGER;
   
3. FUNCTION CONSEUCTION(N:INTEGER):INTEGER;
   
4. VAR R,K:INTEGER;
   
5. BEGIN
   
6.         R:=0;K:=N;
   
7.         REPEAT
   
8.                 K:=K DIV 5;
   
9.                 R:=K+R;
   
10.         UNTIL(K=0);
    
11.         CONSECUTION:=R;
    
12. END;
    
13. BEGIN
    
14.         READ(N);
    
15.         WRITE(CONSEUCTION(N));
    
16. END.

复制代码

错误大致是fatal "." expected but ":=" found,定位在11行

摇摆兔

将第3、11、15行CONSEUCTION或CONSECUTION替换成CONSECUTIONS

kwer

FUNCTION CONSEUCTION 返回值又是CONSECUTION:=R; 不一致啊

建议11行修改成 RESULT:=R;比较通行的写法。

yayongm

PROGRAM CONSECUTION;
VAR N:INTEGER;
FUNCTION CONSEUCTION(N:INTEGER):INTEGER;

根据楼上的提示，怀疑是这里的问题。

aboil

begin和end不匹配，最后一个end.前加一个end;试试