Шулер показывает следующий трюк. Он имеет три одинаковых наперстка. Под первый (левый) он кладет маленький шарик. Затем он очень быстро выполняет ряд перемещений наперстков, каждое из которых – это одно из трех перемещений - A, B, C: A - обменять местами левый и центральный наперстки, B - обменять местами правый и центральный наперстки, C - обменять местами левый и правый наперстки. Необходимо определить, под каким из наперстков окажется шарик после всех перемещений. Входные данные В единственной строке входного файла INPUT.TXT записана строка длиной от 1 до 50 символов из множества {A, B, C} – последовательность перемещений. Выходные данные В единственную строку выходного файла OUTPUT.TXT нужно вывести номер наперстка, под которым окажется шарик после перемещений. Пример INPUT.TXT OUTPUT.TXT CBABCACCC 1

Відповідь:

Во многих операционных системах алгоритмы планирования построены с использованием как концепции квантования, так и приоритетов. Например, в основе планирования лежит квантование, но величина кванта и/или порядок выбора потока из очереди готовых определяется приоритетами потоков. Именно так реализовано планирование в системе Windows NT, в которой квантование сочетается с динамическими абсолютными приоритетами. На выполнение выбирается готовый поток с наивысшим приоритетом. Ему выделяется квант времени. Если во время выполнения в очереди готовых появляется поток с более высоким приоритетом, то он вытесняет выполняемый поток. Вытесненный поток возвращается в очередь готовых, причем он становится впереди всех остальных потоков имеющих такой же приоритет.

Пояснення:

program tz;

var

n,k,i,nach,pred:integer;

Function SumCifr(l:integer):integer;

var

s:string;

sum,i,j,err:integer;

begin

str(l, s);

sum:=0;

for i:= length(s) downto 1 do

begin

val(s[i],j,err);

sum:=sum+j;

end;

SumCifr:=sum;

end;

Procedure Cifri(nach,pred,k:integer);

var

i:integer;

begin

for i:=nach to pred do

if SumCifr(i)=k then

Write(i, ' ');

end;

begin

writeln('k = ');

readln(k);

writeln('n = ');

readln(n);

if n<5 then

begin

nach:=1;

for i:=1 to n-1 do

nach:=nach*10;

pred:=nach*10-1;

Cifri(nach,pred,k)

end

else

begin

nach:=10000;

pred:=32767;

Cifri(nach,pred,k);

end;

end.