Помогите срочно пожалуйста

+ 0 -

Nastena9692

04 мая 2014 г., 23:58:40 (9 лет назад)

Посмотрим, какой будет порядок цветов ночью  через 1,2,3,... дней.
1) GCV -> GVC -> VGC
2) VGC -> VCG -> CVG
3) CVG -> CGV -> GCV и мы получили первоначальную расстановку цветов.
Следовательно, всего существует три варианта расстановок и они повторяются раз в три дня. Если задано N дней, достаточно найти остаток целочисленного деления на 3 (т.е. 0, 1, 2) и этим остаткам будут соответствовать варианты VGC, CVG, GCV.

var
  fIn, fOut: Text;
  n: integer;
  s: string;

begin
  s := 'GCV';
  Assign(fIn, 'input.txt');
  Reset(fIn);
  Read(fIn, n);
  Close(fIn);
  case n mod 3 of
    0: s := 'VGC';
    1: s := 'CVG';
    2: s := 'GCV'
  end;
  Assign(fOut, 'output.txt');
  Rewrite(fOut);
  Write(fOut, s);
  Close(fOut);
  writeln('Работа завершена!')
end.