1. дана последовательность из n (2< =n< =100000) различных чисел. выписать в возрастающем порядке все целые числа находящиеся в интервале от минимального до максимального значения элементов этой последовательности, которые не находятся в данной последовательности. пример: pos.in pos.out 5 1 7 10 3 2 4 6 8 9 2. дано натуральное число к. напечатать к-ую цифру последовательности 110100100010000100000… в которой выписаны подряд степени числа 10. пример: dec.in dec.out 4 1 3. написать программу, которая переводит десятичное натуральное число n (1< =n< =2147483648) в шестнадцатеричную систему счисления. входной файл: tohex.in, выходной: tohex.out. пример: tohex.in tohex.out 35432 8a68
var
k:integer;
tmp:real;
b:string;
c:string;
i:integer;
begin
k:=0; i:=0; tmp:=0;
write('Введите k:');
read(k);
repeat
tmp:=exp(i*ln(10));
str(tmp:0:0, c);
b:=b+c;
i:=i+1;
until length(b) >= k;
c:=copy(b, k, 1);
writeln(b);
writeln('k-я цифра:', c);
readln(k);
end.