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

Ответы 1

  • Program n1;var a,i,p,sum: integer;beginsum:=0;p:=1;repeatreadln(a);if a>0 then sum:=sum+a;if a<0 then p:=p*a;until (a=0);writeln('произведение отрицательных: ',p);writeln('сумма положительных: ',sum);end.
    • Автор:

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

Войти через Google

или

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

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

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