Question

Дана строка. Поместить все цифры строки в отдельную строку. Паскаль. Помогите пожалуйста, решить!

Answer 1

Var
s1, s2: string;
i: integer;
begin
readln(s1);
for i:=1 to length(s1) do
if s1[i] in ['0'..'9'] then
s2 := s2 + s1[i];
writeln(s2);
end.

Answer 2

Конечно, я могу помочь вам написать программу на языке программирования Pascal, которая будет выполнять указанную задачу. Вот пример программы:

program ExtractDigits;

var
  originalString, digitsString: string;
  i: integer;
  currentChar: char;

begin
  // Ввод строки
  writeln('Введите строку:');
  readln(originalString);

// Инициализация строки для цифр
  digitsString := '';

// Итерация по символам исходной строки
  for i := 1 to length(originalString) do
  begin
    currentChar := originalString[i];

// Проверка, является ли текущий символ цифрой
    if (currentChar >= '0') and (currentChar <= '9') then
    begin
      // Добавление цифры к строке для цифр
      digitsString := digitsString + currentChar;
    end;
  end;

// Вывод строки с цифрами
  writeln('Цифры из строки: ', digitsString);

readln;
end.

Эта программа запрашивает у пользователя ввод строки, затем проходит по каждому символу этой строки и добавляет цифры в новую строку. Результат выводится на экран.

Если у вас возникнут вопросы по этому коду или если вам нужна дополнительная помощь, не стесняйтесь спрашивать!