Код 2 из 5. Один из способов сопоставления десятичных цифр

[tiker]

Создать программу, которая сопоставляет десятичные цифры словам кода 01247. Вводится десятичное число. Выводится код 2 из 5 этого числа и веса кода 2 из 5 соответствующие каждой цифре
В общем нужно что бы при вводе числа (допустим 123) выводится код как в табличке (единицы и нолики) Вот такая своего рода кодировка...
Я вот массив набросал только... а вобоще планируется оформить с помощью char. Допустим если число 1 то выводится код единицы.

var
  i,res:integer;
  a:string;
  ar:array[1..5] of integer = (0,1,2,4,7);
begin
  a:='11000';
  res:=0;
  for i:=1 to 5 do
    if a[i]='1' then
      res:=res+ar[i]
end;

Так понятно как делать а практики не хватает. Так что прошу предлогать свои идеи по написанию

[Serge_Bliznykov]

никогда с таким не сталкивался, но, в принципе, идея понятна.
непонятно другое.
1) зачем это надо? (ну, это риторический вопрос.. полагаю, здесь идёт речь о выполнении учебного задания)

2) что подаётся на вход программы,
и что она должна выдать на выходе?
и цель данной работы?

3) самый простой способ решения (правда, зависит от ответа на вопрос 2) ) - это создать константный массив, туда занести эти самые 2-5 коды. и всё...
p.s. если решать "по-честному" - Вам надо разложить десятичное число на сумму двух чисел из массива AR (если число совпадает с одним из коэффициентов, то вторая единичка (второе слагаемое) - это ноль). Исключение - десятичное число 0 (оно единственное не соответствует сумме, т.к. кодируется 4+7)

в любом случае, всё это несложно..