Друган, хеллоу. Мне кароче комп такой купили, на нём в доту можно задротить овер много времени. Там кароч видеокарта, ща буду майнить биткоин, а потом в ксшчку здоровить, кароч от нвидеа. Процессор самый new от интел, чуть ли не квантовый. Вообще класс. Оперативка на 100 гигабайт, вообще, можно хоть 200 приложух открывать. Кароч, там ещё нифига не лагает, супеер! Кароч, го в доту.
Var a:array[1..100] of integer;
i,n,max,min:integer;
begin
writeln('Skolko elementov');
readln(n);
for i:=1 to n do begin write('a[',i,']='); read(a[i]); end;
max:=a[1]; min:=a[1];
for i:=1 to n do if a[i]>max then max:=a[i];
for i:=1 to n do if a[i]<min then min:=a[i];
writeln('Max - Min =' ,max-min);
<span>end.</span>
Пусть десятичнная запись числа - это х, тогда по первому условию:
х=2*(р-1)+3,
по второму условию:
х=(р+1)*1+6
приравниваем и вычисляем р:
2(р-1)+3=р+1+6
2р-р=7-3+2
р=6
отсюда х=6+1+6=13
ответ: десятичная записи - это 13.
<span> 1011110
</span><span> 1100111
---------------
11000101
Арифметика двоичной системы счисления нужно выполнять при помощи ТАБЛИЦЫ сложения и умножения. Можно ее найти в интернете.
</span>
Воть, всё по логике *:
Удачи:)
<em>P.S. Первые 3 условия по-видимому можно исключить, но я не стал рисковать: в этом мире и так чудес мало, а программа работает</em>