Подсчитать количество нулевых чисел среди трех заданных a, b, c.
Написать программу в Pascal (ABC)

Ответ:

program Count0;

var

 a, b, c, i: Integer;

begin

 Write ('Введите три числа: ');

 ReadLn (a, b, c);

 i := 0;

 if a = 0 then

   i := i + 1;

 if b = 0 then

   i := i + 1;

 if c = 0 then

   i := i + 1;

 WriteLn ('Количество нулевых чисел = ', i);

 ReadLn;

end.