Question

Задание нужно сделать в Паскале, помогите пожалуйста... Пусть дан текст из 80 литер. Напечатайте сначала все цифры, входящие в него, а затем все остальные литеры, сохраняя при этом взаимное расположение литер в каждой из этих двух групп.

Answer 1

Для сред программирования DOS (например, Turbo Pascal) удалите фигурные скобки, для сред Windows (например, PascalABC.Net) строки в фигурных скобках удалите полностью.
{uses Crt;}
const
  n=80;
  digits=['0','1','2','3','4','5','6','7','8','9'];
var
  s:string[80];
  i:integer;
begin
  {ClrScr;}
  Writeln('Введите текст (учитываются только 80 первых символов)');
  Readln(s);
  for i:=1 to n do
    if s[i] in digits then Write(s[i]);
  Writeln;
  for i:=1 to n do
    if not(s[i] in digits) then Write(s[i]);
  Writeln;
  {ReadKey}
end.

Тестовое решение:
Введите текст (учитываются только 80 первых символов)
Обь с притоком Иртыш 5410км, Амур с Аргунью 4440км, Лена 4400км, Енисей 4102км
5410444044004102
Обь с притоком Иртыш км, Амур с Аргунью км, Лена км, Енисей км

Answer 2

Вот пример решения данной задачи на языке Pascal:

program SeparateCharacters;
const
  MaxLength = 80;
var
  text: string;
  digits, otherChars: string; // переменные для хранения цифр и остальных символов
  i: integer;
begin
  // Ввод текста с клавиатуры
  writeln('Введите текст (не более 80 символов):');
  readln(text);

// Инициализация переменных
  digits := '';
  otherChars := '';

// Обработка каждого символа текста
  for i := 1 to length(text) do
  begin
    // Если символ является цифрой, добавляем его в переменную digits
    if text[i] in ['0'..'9'] then
      digits := digits + text[i]
    else
      // Если символ не является цифрой, добавляем его в переменную otherChars
      otherChars := otherChars + text[i];
  end;

// Вывод цифр и остальных символов с сохранением их взаимного расположения
  writeln('Цифры в тексте: ', digits);
  writeln('Остальные символы: ', otherChars);

// Ожидание ввода пользователя перед закрытием программы
  readln;
end.

Программа сначала считывает текст с клавиатуры. Затем она проходит по каждому символу текста и, если символ является цифрой, добавляет его в переменную `digits`, иначе добавляет его в переменную `otherChars`. В конце программа выводит обе переменные, сохраняя взаимное расположение символов.