Изменить порядок следования цифр в строке - Pascal

  1. Строка состоит только из цифр, нужно сделать(без перестановки) так, чтобы сначала шли двойки, потом нули, потом единицы Например строка 001212002 станет 222000011


textual

Код к задаче: «Изменить порядок следования цифр в строке - Pascal»

const a: String[3] = '201';
var s: String; i, j: Integer;
begin
  ReadLn(s);
  for i:=1 to Length(a) do for j:=1 to Length(s) do if a[i]=s[j] then Write(a[i]); WriteLn;
end.

СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 4.111 из 5



Похожие ответы
  1. В гонках "Формулы N" участвует N машин. В результате квалификационного заезда машины получили порядковые номера и стартовали в порядке от 1 до N. Вася - страстный поклонник гонок, но у него в общежитии плохой интернет и он не может смотреть видео-трансляцию. Поэтому он вынужден читать текстовую трансляцию, в которой все сообщения имеют вид "Машина номер X обогнала машину номер Y".Вася ненадолго отвлекся и перестал понимать текущий порядок машин на трассе. Помогите ему понять, в каком порядке расположены машины по известным сообщениям с начала текстовой трансляции. В первой строке заданы два натуральных числа N и M (1 ≤ N, M ≤ 100000) - количество машин и сообщений об обгоне соответственно. В следующих M строках содержатся описание сообщений об обгоне: пары чисел X и Y (1 ≤ X, Y ≤ N) - машина X обогнала машину Y. Гарантируется, что машина Y ехала непосредственно перед машиной X на момент сообщения. Выведите N чисел - порядок, в котором находятся машины после обработки всех сообщений.

  1. Помогите, пожалуйста, решить данную задачу в паскале: Дан текстовый файл, состоящий из нескольких строк. Изменить порядок следования строк в файле на обратный порядок следования.

  1. Составить процедуру (или функцию), которая меняет порядок элементов массива, стоящих на четных местах, на обратный. Например, для исходного массива 1,2,3,4,5,6 результатом является 1,6,3,4,5,2. Следующие действия должны выполняться отдельными процедурами (и/или функциями): 1) заполнение массива случайными числами из заданного интервала; 2) вывод массива на экран; 3) заполнение массива нулями (инициализация); 4) сохранение массива в текстовый файл; 5) чтение массива из текстового файла; 6) удаление нескольких элементов из указанного места (со сдвигом); 7) добавление нескольких элементов в указанное место (со сдвигом). Процедуры (и/или функции) должны работать с массивами как с параметрами, но не как с глобальными переменными.

  1. К примеру если я введу: ключ: AAB строку: SIFRUJI SIFRU зашифрованный текст получится: TJHSVLJ TKGSW

  1. Пользователь вводит с клавиатуры несколько слов с символами в разных регистрах, разделенных различными знаками препинанания. Преобразовать первую и последнюю букву каждого слова в верхний регистр, остальные- в нижний регистр. Вывести получившееся предложение на экран.

  1. Описать процедуру Hill(A, N), меняющую порядок элементов вещественного массива A размера N на следующий: наименьший элемент массива располагается на первом месте, наименьший из оставшихся элементов — на последнем, следующий по величине располагается на втором месте, следующий — на предпоследнем и т. д. (в результате график значений элементов будет напоминать холм). Массив A является входным и выходным параметром. С помощью этой функции преобразовать массивы A, B, C размера NA, NB, NC соответственно. ПАСКАЛЬ

  1. Не могу сообразить как сделать так, чтобы программа работала так же, но процедуры не было, а была функция? Программа меняет порядок следования элементов в массиве на противоположный:

  1. Уважаемые участники форума. Напишите, пожалуйста, программу.pas. Считать матрицу из текстового файла. Из ее элементов, представленных по одному разу, сформировать вектор. Этот вектор пересортировать по возрастанию. Заменить элементы заданной матрицы номерами индексов этого нового вектора и записать в новый файл. Например, дана матрица: 33 8 21 2 15 14 15 8 16 11 Получим из нее вектор: 33 8 21 2 15 14 15 8 16 11 Оставим по одному вхождению каждого элемента: 33 8 21 2 15 14 16 11 Пересортируем: 2 8 11 14 15 16 21 33 Индексы сортированного вектора: 1 2 3 4 5 6 7 8 Подставляем в новую матрицу: 8 2 7 1 5 4 5 2 6 3

  1. Всем доброго времени суток. Нужна помощь в написании кода (как сам ни старался, но осознал лишь, что реальный "чайник" в этом). Дано четырехзначное число n. Выбросить из записи числа n цифры 0 и 5, оставив прежним порядок остальных цифр. Например, из числа 1509 должно получиться 19. Через оператор цикла for…to…do… P.S. именно при помощи этих операторов (примеры с другими операторами видел). Буду весьма признателен!