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

Question

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

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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