очень нужно ответить да или нет
если не знаете не надо писать, бан дадут

116

188

Посмотреть ответы 2

Ответы на вопрос:

alenadasha80

Информатика

4,6(59 оценок)

Нет

Объяснение:

Никогда такого не видел, проверил по компилятору, решение исковеркал, то есть цикл не сработал. Так что нет.

MashaKun

Информатика

4,4(38 оценок)

Var n, sum, p: integer; begin sum : = 0; p : = 1; repeat write('введите число (для завершения программы введите 0000): '); readln(n); if n < > 0 then begin if n > = 0 then sum : = sum + n; if n < 0 then p : = p * n; end else writeln('итог'); writeln( 'сумма положительных: ', sum, ' | произведение отрицательных: ', p); writeln(); until n = 0000; end.