Паписать программу

[SpekTR]

Подсчитать количество цифр в строке, удалить их и вставить в конец строки в порядке удаления.:confused:

[RomiKon]

Даже отвечать не хочется на такое лёгкое задание, вы бы хоть алгоритм на естественом языке составили. А если всё лень то платите сделаем.

[SpekTR]

если бы я мог, то я бы сделал.....

[RomiKon]

Берёшь две новые чистые строки Str1 и Str2. Твоя строка которую нужно обработать Str3. Пускаешь цикл по всем символам Str3 если символ цифра то записываешь его в Str2 иначе в Str1, после всех этих операций скрепляешь Str1 и Str2 и заносишь в Str3

program new;

var
  str1, str2, str3: String;
  i: Integer;

begin
  writeln('Запишите строку');
  readln(str3);
  for i:=1 to Length(str3) do
    if str3[i] in ['0'..'9'] then str2:=str2+str3[i] else str1:=str1+str3[i];
  str3:=str1+str2;
  writeln('Результат '+str3);
end.