Question

Даны три целых числа(a b c) найти количество отрицательных чисел в исходном наборе

Answer 1

Var
a,b,c,n: integer;
 begin
 writeln ('vvedi a,b,c');
 readln(a,b,c);
 n:=0;
  if a<0 then n:=n+1;
    if b<0 then n:=n+1;
      if c<0 then n:=n+1;
 if n<>0 then writeln ('среди трех чисел ',n,' отрицательных')
 else
  writeln ('среди трех чисел нет отрицательных')
   end.

Answer 2

Для решения данной задачи, нужно просмотреть каждое из трех целых чисел и проверить, является ли оно отрицательным. Если число отрицательное, увеличиваем счетчик отрицательных чисел на 1. В конце, полученное значение счетчика будет являться количеством отрицательных чисел в исходном наборе.

Пример кода на языке Python:

```python a = int