У исполнителя Утроитель две команды, которым присвоены номера:
1. прибавь 2,
2. умножь на 3.
Первая из них увеличивает число на экране на 2, вторая — увеличивает его в 3 раза.
Программа для Утроителя — это последовательность команд. Сколько есть программ, которые число 1 преобразуют в число ответ
26
Объяснение:
a = 23 (дано число a)
выполняем цикл (увеличиваем число a на 5 и проверяем условие число a больше 35, если условие истинно (да) выходим из цикла, если ложное (нет), то повторяем цикл)
a = a + 5 = 23 + 5 = 28
a > 35 (28 > 35, нет)
a = a + 5 = 28 + 5 = 33
a > 35 (33 > 35, нет)
a = a + 5 = 33 + 5 = 38
a > 35 (38 > 35, да)
a = a * 2 = 38 * 2 = 76 (увеличиваем число a в 2 раза)
проверяем условие является ли число a двузначным, если условие истинно (да), то выполняем левую ветку, а правую ветку (ещё один цикл) не трогаем (если условие ложно (нет), то выполняем правую ветку (ещё один цикл), а левую ветку не трогаем)
9 < a < 100 (9 < 76 < 100, да - двузначное)
a = a - 50 = 76 - 50 = 26 (уменьшаем число a на 50)
получаем ответ (больше ничего не делаем)
print "program Project1;
type
//Тип, задающий основания систем счисления.
TBase = 2..20;
//Переводит запись числа в системе счисления по основанию aBase - в число.
function XToNum(const aStr : String; aBase : TBase) : Longint;
var
StrBin : String;
i, Sign : Integer;
Res, Weight : Longint;
begin
XToNum := 0;
if aStr = '' then Exit;
Res := 0;
//Определяем знак и получаем запись числа без знака.
if aStr[1] = '-' then begin
Sign := -1;
StrBin := Copy(aStr, 2, Length(aStr) - 1);
end else begin
Sign := 1;
StrBin := aStr;
end;
Weight := 1;
//Движемся по разрядам беззнакового числа справа-налево.
for i := Length(StrBin) downto 1 do begin
case StrBin[i] of
'0' : Res := Res + 0 * Weight;
'1' : Res := Res + 1 * Weight;
'2' : Res := Res + 2 * Weight;
'3' : Res := Res + 3 * Weight;
'4' : Res := Res + 4 * Weight;
'5' : Res := Res + 5 * Weight;
'6' : Res := Res + 6 * Weight;
'7' : Res := Res + 7 * Weight;
'8' : Res := Res + 8 * Weight;
'9' : Res := Res + 9 * Weight;
'A', 'a' : Res := Res + 10 * Weight;
'B', 'b' : Res := Res + 11 * Weight;
'C', 'c' : Res := Res + 12 * Weight;
'D', 'd' : Res := Res + 13 * Weight;
'E', 'e' : Res := Res + 14 * Weight;
'F', 'f' : Res := Res + 15 * Weight;
'G', 'g' : Res := Res + 16 * Weight;
'H', 'h' : Res := Res + 17 * Weight;
'I', 'i' : Res := Res + 18 * Weight;
'J', 'j' : Res := Res + 19 * Weight;
else
raise Exception.Create('Ошибка! Незарегистрированная цифра!');
end;
//Вес следующего разряда.
Weight := Weight * aBase;
end;
//Учитываем знак.
XToNum := Sign * Res;
end;
//Переводит число в систему счисления по основанию aBase.
function NumToX(const aNum : Longint; const aBase : TBase) : String;
var
Num : Longint;
Dig : Byte;
Res : String;
begin
Res := '';
Num := Abs(aNum);
repeat
//Определяем очередной младший разряд числа.
Dig := Num mod aBase;
case Dig of
0 : Res := '0' + Res;
1 : Res := '1' + Res;
2 : Res := '2' + Res;
3 : Res := '3' + Res;
4 : Res := '4' + Res;
5 : Res := '5' + Res;
6 : Res := '6' + Res;
7 : Res := '7' + Res;
8 : Res := '8' + Res;
9 : Res := '9' + Res;
10 : Res := 'A' + Res;
11 : Res := 'B' + Res;
12 : Res := 'C' + Res;
13 : Res := 'D' + Res;
14 : Res := 'E' + Res;
15 : Res := 'F' + Res;
16 : Res := 'G' + Res;
17 : Res := 'H' + Res;
18 : Res := 'I' + Res;
19 : Res := 'J' + Res;
end;
//Удаляем из числа очередной младший разряд.
Num := Num div aBase;
until Num = 0;
//Учитываем знак.
if aNum < 0 then Res := '-' + Res;
NumToX := Res;
end;
//Переводит число, представленное в системе счисления по основанию aBase1,
//в систему счисления по основанию aBase2.
function XToY(const aStr : String; const aBase1, aBase2 : TBase) : String;
begin
XToY := NumToX( XToNum(aStr, aBase1), aBase2 );
end;
var
S : String;
begin
repeat
Writeln('Задайте целое число в шестнадцатиричной системе счисления:');
Readln(S);
S := XToY(S, 16, 20);
Writeln('Это же число, представленное в двадцатиричной системе счисления:');
Writeln(S);
Writeln('Повторить - Enter, выход - любой символ + Enter.');
Readln(S);
until S <> '';
end.\n";