Пусть десятичнная запись числа - это х, тогда по первому условию:
х=2*(р-1)+3,
по второму условию:
х=(р+1)*1+6
приравниваем и вычисляем р:
2(р-1)+3=р+1+6
2р-р=7-3+2
р=6
отсюда х=6+1+6=13
ответ: десятичная записи - это 13.
program raf105;
var v:array[1..9] of real;
i,j,kolvo,n:integer;
max:real;
begin
writeln('Введите 9 значений по очереди: ');
for i:=1 to 9 do
read(v[i]);
for j:=1 to 9 do
begin
for i:=1 to 9 do
begin
if (v[j]-v[i]) > 0
then kolvo:=kolvo+1;
end;
if kolvo=8
then
begin
max:=v[j];
n:=j;
end
else kolvo:=0;
end;
v[n]:= -max;
writeln('Максимальное число с противоположным знаком: ',v[n]);
end.
<em>Написано на языке PascalABC.NET</em>
А=247(8)=10100111
В=А9(16)=10101001
Ответ 1
⇔∈∫∵∑∵⇆∧↑∉,ω↑≈∉∈↑↑⊆↑⊅∴⊅∵∀⊂∑∞⊂∞⊃⊃∑∉∛∠∠㏑
A = 10
b = 2
a = a*b = 10*2 = 20
b = остаток от деления а на 3 = 20 mod 3 = 2
c = a - b = 20 - 2 = 18
program raf105;
var a,n,i: integer;
begin
write('n = ');
readln(n);
write('a = ');
readln(a);
for i:=1 to n do
writeln(a);
end.
<h3><u>PascalABC 3.4.2</u></h3>