Pascal文科生的悲哀
发布网友
发布时间：2022-08-08 22:53
共1个回答
热心网友
时间：2024-10-14 07:02
var
a,b:array[1..4] of int64;
n,c:longint;
begin
readln(n);
if n=1 then begin
writeln(1);
halt;
end;
fillchar(a,sizeof(a),0);
fillchar(b,sizeof(b),0);
a[1]:=1;
for c:=1 to n-1 do begin
b[1]:=a[3] mod 7654321;
b[2]:=a[4] mod 7654321;
b[3]:=a[1]+a[4] mod 7654321;
b[4]:=a[2]+a[3] mod 7654321;
a:=b;
end;
writeln((b[1]+b[2]+b[3]+b[4])mod 7654321);
end.
