• подсчитать количество отрицательных целых чисел a,b,c

Ответы 1

  • program fofgogjoj;vara,b,c,ot:integer;beginWriteln('Введите 3 числа');Readln(a,b,c);if a<0 thenot:=ot+1;if b<0 thenot:=ot+1;if c<0 thenot:=ot+1;Writeln('Кол-во отрицательных чисел:',ot);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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