1) дано число 87395120474. в нём удалили 3 цифры, сдвинув оставшиеся вместе и не меняя их порядок следования. какое минимальное число, делящееся на три, можно получить таким образом из исходного числа?
2) гена любит число 13. он решил посчитать, сколько есть трёхзначных чисел, внутри которых есть это число. например, подходят числа 135, 213, 193, но не 312, потому что в нём 1 и 3 идут в неправильном порядке. гене посчитать количество таких чисел.
3) у народа кукси алфавит состоит из 15 букв. сколько бит информации содержит в этом алфавите слово из 13 букв?
4) бельчонок придумал интересный шифрования слов (правда, пока только шестибуквенных). сначала нужно переставить 1 букву на место 2, 2 на место 3, 3 на место 4, 4 на место 1, а 5 и 6 поменять местами. бельчонок провёл одно слово через этот алгоритм 10 раз и на выходе получил слово beamer. какое слово было в начале?
5) найдите закономерность в последовательности чисел. в ответ запишите 3 следующих числа в ряде. числа нужно писать через запятую, например 1,2,3.
111, 120, 122, 201, 210, …
+ вопросы ниже
Const
n=5;
Var
max1,max2,min1,min2,i:integer;
ar:array[1..n] of integer;
begin
max1:=integer.MinValue;
max2:=integer.MinValue;
min1:=integer.MaxValue;
min2:=integer.MaxValue;
for i:=1 to n do
begin
readln(ar[i]);
if (ar[i]<max1) and (ar[i]>max2) then max2:=ar[i] else
if ar[i]>max1 then
begin
max2:=max1;
max1:=ar[i];
end;
if (ar[i]>min1) and (ar[i]<min2) then min2:=ar[i] else
if ar[i]<min1 then
begin
max2:=max1;
min1:=ar[i];
end;
end;
writeln('Сумма максимумов:',max1+max2);
writeln('Cумма минимумов:',min1+min2);
end.
Пример ввода:
1
2
3
4
5
Пример вывода:
Сумма максимумов:9
Cумма минимумов:3
Var
ar:array of integer;
i,n:integer;
procedure quicksort(var a:array of integer; Lo,Hi: integer);
procedure sort(l,r: integer);
var
i,j,x:integer;
begin
i:=l;
j:=r;
x:=a[random(r-l+1)+l];
repeat
while a[i]>x do i:=i+1;
while x>a[j] do j:=j-1;
if i<=j then
begin
if a[i]<a[j] then swap(a[i],a[j]);
i:=i+1;
j:=j-1;
end;
until i>=j;
if l<j then sort(l,j);
if i<r then sort(i,r);
end;
begin;
randomize;
sort(Lo,Hi)
end;
begin
readln(n);
setlength(ar,n);
n:=n-1;
writeln('Array:');
for i:=0 to n do
begin
ar[i]:=random(10);
write(ar[i]:4);
end;
quicksort(ar,0,n);
writeln;
writeln('Final array:');
for i:=0 to n do
write(ar[i]:4);
end.
Пример ввода:
5
Пример вывода:
Array:
8 7 5 9 4
Final array:
9 8 7 5 4