Написать программу Вводя числа с клавиатуры без ограничения…

Question

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

Answer 1

49

usmend

21 августа 2022

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: