Question

Написать программу поиска суммы положительных чисел, вводимых с клавиатуры. Как только будет введено отрицательное число, суммирование прекратить.

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x>=0).Sum());
end.

Answer 2

Var
  A,S: real;
Begin
  S := 0;
  Write('Введите последовательность чисел: ');
  Read(A);
  While A >= 0 do
  Begin
    S := S + A;
    Read(A);
  End;
  WriteLn('S = ',S);
End.

Answer 3

Программа поиска суммы положительных чисел

Вот пример программы на языке Python, которая позволяет пользователю вводить числа с клавиатуры и находить их сумму. Программа прекращает суммирование, как только будет введено отрицательное число:

sum = 0

while True:
    num = int(input("Введите число: "))
    
    if num < 0:
        break
    
    sum += num

print("Сумма положительных чисел:", sum)

В этой программе используется цикл `while True`, который продолжает выполняться до тех пор, пока не будет введено отрицательное число. Внутри цикла пользователю предлагается ввести число с помощью функции `input()`. Затем это число проверяется на отрицательность. Если число отрицательное, цикл прерывается с помощью оператора `break`. В противном случае число добавляется к переменной `sum`, которая хранит сумму положительных чисел.

После окончания цикла выводится сообщение с суммой положительных чисел.

Пример работы программы:

Введите число: 5
Введите число: 10
Введите число: 3
Введите число: -2
Сумма положительных чисел: 18

Это простой пример программы, который можно расширить и улучшить в зависимости от требований и конкретных задач.