Question

Написать программу Вводя числа с клавиатуры без ограничения их количества (конец ввода - число 0), найти сумму положительных и произведение отрицательных чисел .СРОЧНО.

Answer 1

program c1;
var
a,b,n:longint;
Begin
a:=0;
writeln('Вводи числа sergei1906');

repeat
read(n);
if n>0 then b:=b+n;
if n<0 then a:=a*n;
until n=0;
Writeln('Сумма положительных чисел: ',b);
Writeln('Произведение отрицательных чисел: ',a);
End.

Answer 2

Для решения данной задачи вам потребуется написать программу на языке программирования, который вы предпочитаете. В данном примере я предоставлю решение на языке Python.

def calculate_sum_and_product():
    positive_sum = 0
    negative_product = 1

while True:
        number = int(input("Введите число: "))
        
        if number == 0:
            break
        
        if number > 0:
            positive_sum += number
        else:
            negative_product *= number
    
    print("Сумма положительных чисел:", positive_sum)
    print("Произведение отрицательных чисел:", negative_product)

calculate_sum_and_product()

В данной программе мы используем цикл `while True`, чтобы продолжать вводить числа с клавиатуры до тех пор, пока не будет введено число 0. Внутри цикла мы проверяем каждое введенное число и добавляем его к сумме положительных чисел, если оно положительное, или умножаем на него произведение отрицательных чисел, если оно отрицательное. После окончания ввода чисел, программа выводит сумму положительных чисел и произведение отрицательных чисел.

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