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

Формулировка задачи:

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

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

textual
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


СОХРАНИТЬ ССЫЛКУ