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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

это паскаль или что если он то . program prog; var a,b,c,i:integer; begin Writeln('Введите 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.