1. Дана последовательность из N (2<=N<=100000) различных чисел. Выписать в возрастающем...

Question

1. Дана последовательность из N
(2<=N<=100000) различных чисел. Выписать в возрастающем порядке все целые<br> числа находящиеся в интервале от минимального до максимального значения
элементов этой последовательности, которые не находятся в данной
последовательности.

Пример:




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) в<br> шестнадцатеричную систему счисления. Входной файл: tohex.in, выходной:
tohex.out.

Пример:




Tohex.in


Tohex.out




35432


8A68

Answer 1

2)program 2;
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.