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

Ответы 1

  • 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.

    • Автор:

      tater tot
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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