Question

определить, сколько из чисел a,b,c являются черными используя ветвление

Answer 1

если ты имел в виду чёрные то:

k:=0;

if a mod 2 = 0 then k:=k+1;( k - счетчик)

if b mod 2 = 0 then k:=k+1;

if c mod 2 = 0 then K;=k+1;

write(k);(число чётных)