您所在位置：主题：高手能帮帮我吗？
pclkh
[专家分：0] 发布于 2005-04-19 23:35:00
program calendar;
uses wincrt;
var
y,month,day,year:integer;
first_day:real;
begin
y:=year-1;
readln(year);
first_day:=(36+y+(y div 4)-(y div 100)+(y div 400)) mod7;
writeln(first_day);
end.
first_day:=(36+y+(y div 4)-(y div 100)+(y div 400)) mod7;
在这行我已打了;号..还出现85的error---;expected
为什麽呢？
uses wincrt;
var
y,month,day,year:integer;
first_day:real;
begin
y:=year-1;
readln(year);
first_day:=(36+y+(y div 4)-(y div 100)+(y div 400)) mod7;
writeln(first_day);
end.
first_day:=(36+y+(y div 4)-(y div 100)+(y div 400)) mod7;
在这行我已打了;号..还出现85的error---;expected
为什麽呢？
