• Из n введенных чисел найти сумму квадратов положительных чисел произведения отрицательных и подсчитать нулевые

Ответы 1

  • var n, sum, p: integer;beginsum := 0;p := 1;repeatwrite('Введите число для завершения программы введите 0000): ');readln(n);if n <> 0 then beginif n >= 0 then sum := sum + n;if n < 0 then p := p * n;endelse writeln('ИТОГ');writeln( 'Сумма положительных: ', sum, ' | Произведение отрицательных: ', p);writeln();until n = 0000;end.Вроде так
  • Добавить свой ответ

Войти через Google

или

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

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

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