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

Задание:

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

Решение:

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.

Знаете другой ответ?

Отправить свой ответ