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

Question

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

Answer 1

37

xandr123

14 августа 2022

program prog; var a,b,c,i: integer; beginWriteln ('Введите 3 числа'); Readln (a,b,c); if a<0 then i: =i+1; if b<0 then i: =i+1; if c<0 then i: =i+1; writeln ('Количество отрицательных чисел: ',i); end.

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

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

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

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: