Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

это паскаль или что если он то .

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.