Question

Найти количество чисел из a b c d равных 0

Answer 1

var a,b,c,d,x: integer;
begin
x:=0;
readln(a,b,c,d);
if a=0 then inc(x);
if b=0 then inc(x);
if c=0 then inc(x);
if d=0 then inc(x);
writeln(x);
end.