Антон_ А Антон_ Регистрация 10 Авг 2013 Сообщения 81 Репутация 0 Спасибо 0 Монет 0 27 Окт 2016 #1 даны три целых числа (a b c) найти количество отрицательных чисел в исходном наборе Напишите программу. (Язык Паскаль)
даны три целых числа (a b c) найти количество отрицательных чисел в исходном наборе Напишите программу. (Язык Паскаль)
topher T topher Регистрация 31 Янв 2013 Сообщения 109 Репутация -6 Спасибо 0 Монет 0 27 Окт 2016 #2 var a,b,c,s:integer; begin read(a,b,c); if a<0 then inc(s); if b<0 then inc(s); if c<0 then inc(s); write(s); end. Позитивный голос 0
var a,b,c,s:integer; begin read(a,b,c); if a<0 then inc(s); if b<0 then inc(s); if c<0 then inc(s); write(s); end.