Цитата:
Сообщение от Anastasia12
я не знаю( у меня со строка огромная беда((
|
Ну не знаю, устроит ли такое решение, ломал-ломал голову, как совсем обойтись без второй строки, но так и не придумал. Вот, "чем богаты":
Код:
Const
Let=['a'..'z']+['A'..'Z'];
Dig=['0'..'9'];
Var
S,S1:String;
i,L:Byte;
Begin
Writeln('Enter the String:');
Readln(S);
L:=Length(S);
S1:='';
for i:=1 to L do
if (S[i] in Let) then S1:=S1+S[i];
for i:=1 to L do
if (S[i] in Dig) then S1:=S1+S[i];
for i:=1 to L do
if Not(S[i] in Let) and Not(S[i] in Dig) then S1:=S1+S[i];
Writeln('Result:');
Writeln(S1);
Readln
End.