1. Дана последовательность из N (2 меньше =N меньше =100000) различных чисел. Выписать в возрастающем порядке все целые числа находящиеся в интервале от минимального до максимального значения элементов этой последовательност...
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
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы