Цитата:
Сообщение от MRFRASH
Заменить в заданной строке символы их кодами. Между кодами поставить тире, а перед и после пробела знак плюс.
|
И Вам также здравствовать, очень рады Вас видеть. Разрешите исполнять? Спасибо, Вы очень любезны. Надеюсь, так Вас устроит:
Код:
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.