Відповідь:
Во многих операционных системах алгоритмы планирования построены с использованием как концепции квантования, так и приоритетов. Например, в основе планирования лежит квантование, но величина кванта и/или порядок выбора потока из очереди готовых определяется приоритетами потоков. Именно так реализовано планирование в системе 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.
2. 12
3. 3
4. 22
5. 15
6. 34
7. 3
Часть 2
1.
Var
n:integer;
Begin
Write('Введи число ');
Readln(n);
if (n mod 2) = 0 then write(n,' чётное) else write(n,' нечётное);
End.
2.
Var
a,b:integer;
Begin
Write('Введи числа ');
Readln(a,b);
if a>b then Begin Write('a = ',b*a,' b = ',a+b) else write('a = ',a+b,' b = ',a*b);
End.
3.
Var
n:integer;
Begin
write('Введи двузначное число ');
Readln(n);
if ((n div 10) = 6) or ((n mod 10) = 6) then write('6 присутствует') else write('6 нет в этом числе');
End.