PascalABC: char, string, декодирование

[Drosha]

PascalABC: char, string, декодирование

Есть строчка s с кодом слова (например "236 224 236 224" - мама)
Помогите декодировать ее, то есть вывести слово "мама".

 

[Vladimir_S]

Есть строчка s с кодом слова (например "236 224 236 224" - мама)
Помогите декодировать ее, то есть вывести слово "мама".

Всё, чем могу помочь - это нарисовать программу для обычного нормального Паскаля (Free, Turbo). Если не запустится в этом богомерзком АВС - пишите, попробуем довести до ума.

Var
 S,C:String;
 D,n,Code,i,L:Integer;
 
Begin
 Writeln('Enter the string:');
 Readln(S);
 L:=Length(S);
 i:=0;
 Repeat
  D:=0;
  repeat
   Inc(i);
   if (i<L+1) and (S[i]<>' ') then
    begin
     C:=S[i];
     Val(C,n,Code);
     D:=D*10+n;
    end;
  until (i=L+1) or (S[i]=' ');
  Write(Chr(D));
 Until i=L+1;
 Readln
End.

 

[Drosha]

Благодарю, сударь! Это именно то, что мне было нужно=)

 

[Vladimir_S]

Благодарю, сударь! Это именно то, что мне было нужно=)

"Всегда к услугам Вашим..."