Program var15_stroki;
Uses crt;
Var s:string;
a,i,endstr:integer;
Begin
clrscr;
Writeln('Введите строку');
Readln(s);
endstr:=Length(s);
for i:=1 to endstr do
if s[i]='-' then
Delete(s,i,1);
for a:=1 to endstr do
if s[a]=' ' then
Delete(s,a,1);
Writeln(s);
Readln;
End.
Объяснение:
Program var15_stroki;
Uses crt;
Var s:string;
a,i,endstr:integer;
Begin
clrscr;
Writeln('Введите строку');
Readln(s);
endstr:=Length(s);
for i:=1 to endstr do
if s[i]='-' then
Delete(s,i,1);
for a:=1 to endstr do
if s[a]=' ' then
Delete(s,a,1);
Writeln(s);
Readln;
End.
Объяснение: