Question

Напишите на Paskal Введите строку в которой записана сумма натуральных чисел например '1+25+3'

Answer 1

Var
  i, sum, beg:integer;
  str:string;

begin
  sum:=0;
  beg:=1;
  readln(str);
  for i:=1 to Length(str) do
    if str[i]='+' then
    begin
      sum:=sum+StrToInt(Copy(str, beg, i-beg));
      beg:=i+1;
    end;
  sum:=sum+StrToInt(Copy(str, beg, Length(str)));
  writeln(sum);
end.

Answer 2

Для ввода строки, в которой записана сумма натуральных чисел в языке Pascal, вы можете воспользоваться следующим кодом:

program SumOfNaturalNumbers;
var
  inputString: string;
  numbers: array of Integer;
  i, sum: Integer;
begin
  Write('Введите строку с суммой натуральных чисел (например, "1 25 3"): ');
  ReadLn(inputString);
  
  // Разбиваем введенную строку на отдельные числа
  SetLength(numbers, 0);
  i := 1;
  while i <= Length(inputString) do
  begin
    while (i <= Length(inputString)) and (inputString[i] = ' ') do
      Inc(i);
    if i <= Length(inputString) then
    begin
      SetLength(numbers, Length(numbers) + 1);
      Read(numbers[High(numbers)], inputString);
    end;
  end;
  
  // Вычисляем сумму
  sum := 0;
  for i := Low(numbers) to High(numbers) do
    sum := sum + numbers[i];
  
  // Выводим результат
  WriteLn('Сумма натуральных чисел: ', sum);
end.

В этом коде мы сначала считываем строку, в которой записана сумма натуральных чисел. Затем мы разбиваем эту строку на отдельные числа и вычисляем их сумму. Результат выводится на экран. При вводе строки в формате "1 25 3", программа выведет сумму этих чисел.