Показать сообщение отдельно
Старый 11.12.2016, 10:35   #4 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от 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.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070