Var a: string; i: integer; al: char;
begin
writeln ('введите слово');
readln (a);
for i: =1 to length (a) do
begin
al: =a[i];
write (ord (al));
end;
end.
надо написать программу обратную этой. то есть чтобы при вводе цифры выводилось слово

Если вас интересует ответ, то вот:

12 = 1100

23 = 10111

45 = 101101

Алгоритм перевода прост (обычно используется нижеприведенный), если вас интересует как самому справляться с этим, то необходимо просто делить переводимое число на основание системы счисления (в данном случаи это 2 - основание системы счисления обычно скрыто в её названии - двоичная).

Результат - остатки от деления записанные в обратном порядке (см. картинку).

Заранее за отметку "лучший ответ" и нажатую кнопочку " ":

PascalABC.NET 3.7:

Пояснение:

RS - ReadString: Возвращает значение типа string, введенное с клавиатуры.

AdjacentGroup: Группирует одинаковые подряд идущие элементы, получая последовательность массивов.

SelectMany: Проецирует каждый элемент последовательности в новую последовательность и объединяет результирующие последовательности в одну последовательность.

.Len - .Length: Длина массива.

.Str - .JoinToString: Преобразует последовательность символов в строку, не используя разделитель (при последовательность другого типа данных в качестве разделителя используется пробел).

.Pr - .Print: Выводит последовательность символов на экран, не используя разделитель (при последовательность другого типа данных в качестве разделителя используется пробел).

Пример работы: