Вводя числа с клавиатуры без ограничения их количества (конец ввода число 0) ,…

Question

35

Вводя числа с клавиатуры без ограничения их количества (конец ввода число 0) , найдите сумму положительны хи произведение отрицательных чисел. Написать впрограмме E6 и E7 в ABC паскале. Это оператор варианта. Нужно срочно решить

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

mirmarket · Accepted Answer

38

mirmarket

30 января 2024

var a, s_p, s_o: integer; begin s_o: =1; s_p: =0; repeat readln (a); if (a < 0) then s_o: =s_o*a else s_p: =s_p+a; until (a=0); writeln ('Произведение отр.: ', s_o); writeln ('Сумма пол.: ', s_p); end.

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

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

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

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