Задать вопрос Регистрация
Помочь другим

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

Ответы 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.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years