<span>5 дискретность - алгоритм должен состоять из конечного числа шагов, приводящих к решению задачи</span>
6папок т.к в 1 папке содержится 2-3 бита
Var k,n:integer;
begin
write('k = (k кратно 3) ');
readln(k);
n:=k div 3 mod 10;
writeln(k,'-я цифра последовательности 101102103…149150 = ',n);
end.
Пример:
<span>k = (k кратно 3) 27
27-я цифра последовательности 101102103…149150 = 9</span>
16 в -1 = 1/16
16 в 1 = 16
var
a: array [1..5, 1..5] of byte;
min: array [1..5] of byte;
i, j: byte;
begin
for i := 1 to 5 do min[i] := 100;
for i := 1 to 5 do
for j := 1 to 5 do
begin
a[i, j] := random(0, 99);
if (min[i] > a[i, j]) then min[i] := a[i, j];
end;
for i := 1 to 5 do
begin
for j := 1 to 5 do
write(a[i, j]:2, ' ');
writeln('- ', min[i]);
end;
<span>end.</span>