Pascal报错 Syntax error, ";" expected but "IF" found
program zhoutianshi(input,output);
var t:longint;
begin
read(t);
if t div 604800=0 then write('00:')
else
begin
t:=t div 604800
if t<10 then write('0',t) else write(t,':');
t:=t mod 604800;
if t div 86400=0 then write('00:')
else
begin
t:=t div 86400
if t<=10 then write('0',t) else write(t,':');
t:=t mod 86400;
if t div 3600=0 then write('00:')
else
begin
t:=t div 3600
if t<=10 then write('0',t) else write(t,':');
t:=t mod 3600;
if t div 60=0 then write('00:')
else
begin
t:=t div 60
if t<=10 then write('0',t) else write(t,':');
t:=t mod 60;
if t<=10 then write('0',t) else write(t);
end.
最佳答案
程序中类似
t:=t div 604800
这样的,后面全部少分号了
另外,至少有5个begin没有对应的end
你程序写成这样风格很难看的(排一下版啊)
其他回答
其它网友回答:
这个错误指if前面的语句没加分号
其它网友回答:
还有,有n个end省略了
其它网友回答:
(你这个把秒转换时分秒的程序不用超级if嵌套吧)