Задача №407 Обмен

В рождественский вечер на окошке стояло три цветочка, слева на право: герань, крокус и фиалка. Каждое утро Маша вытирала окошко и меняла местами стоящий справа цветок с центральным цветком. А Таня каждый вечер поливала цветочки и меняла местами левый и центральный цветок. Требуется определить порядок цветов ночью по прошествии k дней.

Входные данные

Первая строка содержит количество тестов t (1 ≤ t ≤ 12). В каждой из следующих t строк находится количество дней k (1 ≤ k ≤ 1000).

Выходные данные

Вывести t строк, содержащих по три латинских буквы: "G", "C" и "V" (заглавные буквы без пробелов), описывающие порядок цветов на окошке по истечении k дней (слева направо). Обозначения: G – герань, C – крокус, V – фиалка.

Решение

var a: array [1..3] of char;
    count, days, i: integer;
    temp: char;
begin
  readln(count);
  while count > 0 do
  begin
    readln(days);
    a[1] := 'G';
    a[2] := 'C';
    a[3] := 'V';
    for i := 1 to days do
    begin
      temp := a[3];
      a[3] := a[2];
      a[2] := temp;

      temp := a[1];
      a[1] := a[2];
      a[2] := temp; 
    end;

    for i := 1 to 3 do
      write(a[i]);
    writeln;
    count := count - 1;
  end;
end.

Смотрите также: