Подсчитать количество отрицательных чисел среди трех введенных с клавиатуры.…

Question

35

Подсчитать количество отрицательных чисел среди трех введенных с клавиатуры. Желательно вPascalABC

в избранное ссылка

Знаете ответ?

vladimir0928 · Accepted Answer

79

vladimir0928

29 февраля 2024

var kol,a,b,c: longint; begin read (a,b,c); if a<0 then kol: =kol+1; if b<0 then kol: =kol+1; if c<0 then kol: =kol+1; write (kol); end.

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

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