Question

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




 

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.