• Вводятся целые числа, окончание ввода цифра 0. Найти сумму отрицательных нечетных чисел. Найти произведения положительных чисел кратных 3. Предусмотреть, если таких чисел не было- вывести информационное сообщение. Задача Паскаль

Ответы 1

  • var k,sum,summ: Integer;beginsumm:=1;repeatwriteln('Введите число');readln(k);if (k mod 2<>0) and (k<0) then sum:=sum+k;if (k>0) and (k mod 3=0) then summ:=summ*k;until k=0;if (sum=null) and (summ=1) then writeln('Нет таких чисел') elsebeginwriteln('Сумма: ',sum);writeln('Произведение: ',summ);end;end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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