Цитата:
Сообщение от Drosha
Есть строчка 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.