x = 5
Объяснение:
1) умножь на 3
2) прибавь x
Программа 12221 переводит число 2 в число 63
Последняя команда = 1 ⇒ 63 ÷ 3 = 21 - должно получиться в 4 действии действии.
Дальше идёт чистый подбор.
1) 2 × 3 = 6
2) 6 + 5 = 11
3) 11 + 5 = 16
4) 16 + 5 = 21
5) 21 × 3= 63
program n_1;
uses crt;
var
n: longint;
k: integer;
function Sym(n: integer): char;
begin
case n of
0..9: Sym := chr(48 + n);
10..36: Sym := chr(55 + n);
end;
end;
function funct(n: longint; k: integer): string;
var
st: string;
begin
st := '';
if n = 0 then st := '0' else
begin
while n >= 1 do
begin
st := Sym(n mod k) + st;
n := n div k;
end;
end;
DecToX := st;
end;
begin
readln(n);
repeat
readln(k);
until (2 <= k) and (k <= 36);
writeln(funct(n, k));
end.
в том виде как есть ничего не делает. После исправления ошибок, принимает следующий вид:
program p2;
var
d, e, f, g, h, i, j, k : integer;
function Sub1(x, y : integer) : integer;
begin
if x+y = 3 then Sub1 := 3 else Sub1 := y-x;
end;
function Sub2(p, q : integer) : integer;
begin
Sub2 := Sub1(p, q)+Sub1(q, p);
end;
begin
g := 4; h := 7; i := 9; j := 5; k := 2; d := 1; e := 3;
f := Sub1(g, h);
f := Sub2(i, j);
f := sub1(g, k);
writeln(g, ' ', h, ' ', i, ' ', j, ' ', k, ' ', d, ' ', e, ' ', f);
end.
и на выходе печатает следующее:
4 7 9 5 2 1 3 -2
Х=5
Объяснение:
Распишем всё
1 - 2×3=6
2 - 6+х
3 - 6+2х
4 - 6+3х
5 - (6+3х)×3=63
18+9х=63
9х=63-18
9х=45
х=45/9
х=5