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

kururumi kururumi    3   26.05.2019 20:20    0

Ответы
GlendaRei GlendaRei  23.06.2020 09:58
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика