Подсчитать количество отрицательных чисел среди трех введенных с клавиатуры. Желательно в PascalABC
Подсчитать количество отрицательных чисел среди трех введенных с клавиатуры. Желательно в PascalABC
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы