p1928.pas

来自「高手写的所有acm例程 在acm.zju.edu.cn 上的题目的例程」· PAS 代码 · 共 19 行

PROGRAM p1928;

VAR
        a,b,c,d         :integer;
        ans             :longint;


BEGIN
readln(a,b,c,d);
while (a<>0)or(b<>0)or(c<>0)or(d<>0) do
        begin
        ans:=40*3;
        ans:=ans+(a-b+40)mod 40;
        ans:=ans+(c-b+40)mod 40;
        ans:=ans+(c-d+40)mod 40;
        writeln(ans*9);
        readln(a,b,c,d);
        end;
END.