Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.04.2016, 20:43   #1
scarecrow_1
Пользователь
 
Регистрация: 22.12.2015
Сообщений: 28
По умолчанию Из заданного текста перенести все цифры в конец каждой строки, сохранив их порядок.

Из заданного текста перенести все цифры в конец каждой строки, сохранив их порядок.(очередь)
scarecrow_1 вне форума Ответить с цитированием
Старый 27.04.2016, 17:59   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
uses crt;
var s,sl,sd:string;
i,j:byte;
begin
clrscr;
s:='fa387sa43';
writeln(s);
i:=length(s);
sl:='';sd:='';
for i:=1 to length(s) do
 begin
      if s[i] in ['0'..'9'] then sd:=sd+s[i]
      else sl:=sl+s[i]
 end;
s:=sl+sd;
writeln(s);
readln;
end.
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 05.05.2016, 17:04   #3
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Aleksandr H. так я ему решал. Ну или подобную задачу кому-то.
От них препод зачем-то требует решать подобную задачу, используя очередь. Внятного ответа на вопрос: "А на... зачем?" так и не добился.
ZX Spectrum-128 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Из Паскаля в С (В одномерном массиве все отрицательные элементы переместить в начало массива, остальные в конец, сохраняя порядок) mail@gmai Помощь студентам 5 16.12.2015 18:26
Перенести все элементы равные K в конец Cip Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 11.12.2015 23:25
(ОЧЕРЕДЬ)Из заданного текста перенести все цифры в конец каждой строки, сохранив их порядок barabashka11 Помощь студентам 1 03.01.2013 21:49
Перенести в конец массива все четные элементы илья001 Помощь студентам 6 19.05.2011 16:03
Перенести первые k строк в конец массива, соблюдая порядок их следования. umiko Microsoft Office Excel 1 16.05.2009 08:29