Question

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

Answer 1

Ответ:

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.

Answer 2

Для подсчета количества нулевых чисел среди трех заданных a, b и c в Pascal (ABC), вам нужно использовать условные операторы и счетчик. Вот пример программы, которая выполняет эту задачу: ```pascal program CountZeroes; var a, b, c: integer; zeroCount: integer; begin writeln('Введите три числа: '); readln(a, b, c); zeroCount := 0; // Инициализируем счетчик нулевых чисел // Проверяем каждое из трех чисел на ноль if a = 0 then zeroCount := zeroCount + 1; if b = 0 then zeroCount := zeroCount + 1; if c = 0 then zeroCount := zeroCount + 1; // Выводим результат writeln('Количество нулевых чисел среди введенных: ', zeroCount); end. ``` В этой программе мы объявляем три переменные `a`, `b` и `c` для ввода чисел, и переменную `zeroCount` для подсчета нулевых чисел. Затем мы используем условные операторы `if`, чтобы проверить каждое из чисел и, если число равно нулю, увеличиваем `zeroCount` на 1. В конце программы выводим количество найденных нулей. Пример работы программы: ``` Введите три числа: 0 7 0 Количество нулевых чисел среди введенных: 2 ``` В этом примере введены числа 0, 7 и 0, и программа правильно подсчитывает количество нулевых чисел (2).