Помогите пожалуйста. Срочно нужно!

Помогите пожалуйста. Срочно нужно! Разработать программу для подсчета количества отрицательных чисел среди целых чисел a, b, c. Программа должнаиметь дружественный интерфейс. Протестировать программу для всех возможных случаев (когда количество отрицательных чисел равно 0, 1, 2 и 3).

в избранное

gnava

27 августа 2022

var a, b, c, d: integer; begin d: =0; writeln ('Введите 3 числа'); readln (a, b, c); if a < 0 then inc (d); if b < 0 then inc (d); if c < 0 then inc (d); if d=0 then writeln ('Среди введенных чисел нет отрицательных') else if d=1 then writeln ('Среди введенных чисел 1 отрицательное число') else writeln ('Среди введенных чисел ', d, ' отрицательных числа'); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?