Решение задачи в Паскале

[MRFRASH]

Решение задачи в Паскале

Заменить в заданной строке символы их кодами. Между кодами поставить тире, а перед и после пробела знак плюс.

 

[Vladimir_S]

Заменить в заданной строке символы их кодами. Между кодами поставить тире, а перед и после пробела знак плюс.

И Вам также здравствовать, очень рады Вас видеть. Разрешите исполнять? Спасибо, Вы очень любезны. Надеюсь, так Вас устроит:

var
 S:string;
 i:byte;

begin
 writeln('Enter the string:');
 readln(S);
 for i:=1 to Length(S) do
  if S[i]<>' ' then
   begin
    if i<Length(S) then
     begin
      if S[i+1]<>' ' then write(Ord(S[i]),'-') else
      if S[i+1]=' ' then write(Ord(S[i]),'+');
     end
    else
     write(Ord(S[i]));
   end
  else
   Write(Ord(S[i]),'+');
 Readln
End.

 

[MRFRASH]

спасибо вам за оказанную помощь!