Question

Информатика. програмирование. паскаль. с клавиатуры вводится строка, состоящаятиз слов и чисел, разделенных одним пробелом. написать функцию, подсчитыапющую сумму чисел во введённой строке.

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

function SumStr(s:string):=
    s.MatchValues('(^|\s)\d+(\s|$)').Select(c->c.ToInteger).Sum;

begin
  SumStr(ReadlnString('Введите строку:')).Println
end.

Пример
Введите строку: Cегодня 15 мая 2015 года, 4 часа 10 минут.
2044

Answer 2

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

pascalCopy code
program SumOfNumbers;

// Функция для подсчета суммы чисел в строке
function CalculateSumOfNumbers(inputString: string): Integer;
var
  currentWord: string;
  sum, num: Integer;
  i: Integer;
begin
  sum := 0; // Начальное значение суммы

  // Проходим по строке и разделяем её на слова
  for i := 1 to Length(inputString) do
  begin
    if (inputString[i] <> ' ') then
      currentWord := currentWord + inputString[i]
    else
    begin
      // Конвертируем текущее слово в число и добавляем его к сумме, если возможно
      if TryStrToInt(currentWord, num) then
        sum := sum + num;

      currentWord := ''; // Обнуляем текущее слово для следующего
    end;
  end;

  // Обрабатываем последнее слово, если оно есть
  if currentWord <> '' then
  begin
    if TryStrToInt(currentWord, num) then
      sum := sum + num;
  end;

  Result := sum;
end;

var
  userInput: string;
  totalSum: Integer;
begin
  WriteLn('Введите строку с числами, разделенными пробелами:');
  ReadLn(userInput);

  // Вызываем функцию и выводим результат на экран
  totalSum := CalculateSumOfNumbers(userInput);
  WriteLn('Сумма чисел в строке: ', totalSum);
end.

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