Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  kuglarz
Language: PASCAL
Code:
program HelloWorld;
var
 a:char;
 s,i,j:byte;
 b:qword;

Begin
 readln(s); i:=1;
 while s>0 do
  begin
  readln(a,b);
  if (b mod 2=1) then
   begin
    if i=1 then
     begin
     if a='A' then j:=2;
     if a='B' then j:=3;
     if a='C' then j:=4;
     if a='D' then j:=5;
     end;
    if i=2 then
     begin
     if a='B' then j:=1;
     if a='E' then j:=3;
     if a='F' then j:=4;
     if a='G' then j:=5;
     end;
    if i=3 then
     begin
     if a='B' then j:=1;
     if a='E' then j:=2;
     if a='H' then j:=4;
     if a='I' then j:=5;
     end;
    if i=4 then
     begin
     if a='C' then j:=1;
     if a='F' then j:=2;
     if a='H' then j:=3;
     if a='J' then j:=5;
     end;
    if i=5 then
     begin
     if a='D' then j:=1;
     if a='G' then j:=2;
     if a='I' then j:=3;
     if a='J' then j:=4;
     end;
    i:=j
   end;
  end;
 writeln(i);
end.
          
          
          
          
Comments: