• запросить 5 произвольных чисел . найти сумму отрицательных и произведение положительных

Ответы 1

  • // PascalABC.NET 3.1, сборка 1195 от 09.03.2016begin  var s:=0.0;  var p:=1.0;  var c:real;  for var i:=1 to 5 do begin    Write('Число ',i,': '); Read(c);    if c<0 then s+=c    else      if c>0 then p*=c    end;  Writeln('Сумма отрицательных равна ',s);  Writeln('Произведение положительных равно ',p)end.Тестовое решение:Число 1: 3.5Число 2: -1.4Число 3: 0Число 4: 3.7Число 5: -2.11Сумма отрицательных равна -3.51Произведение положительных равно 12.95
    • Автор:

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

Войти через Google

или

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

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

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