ac1121.pas

来自「同济大学 Online在线题库 AC源代码合集 程序设计竞赛必看资料」· PAS 代码 · 共 13 行

program tju1121;
const
  tail:array[0..9,0..3]of byte=((0,0,0,0),(1,1,1,1),(6,2,4,8),(1,3,9,7),
       (6,4,6,4),(5,5,5,5),(6,6,6,6),(1,7,9,3),(6,8,4,2),(1,9,1,9));
var
  a,b:longint;
begin
  repeat
    read(a,b);
    if b=0 then writeln(1) else writeln(tail[a mod 10,b mod 4]);
  until seekeof;
end.