profile
Опубликовано 5 лет назад по предмету Информатика от aisilenok

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

  1. Ответ
    Ответ дан Hasl1337

    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.

Самые новые вопросы