Программа PascalABC задача:Даны три числа.Написать программу,для подсчета количества чисел,равных нулю.
Программа PascalABC задача:Даны три числа.Написать программу,для подсчета количества чисел,равных нулю.
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var
num1, num2, num3: integer;
countZeros: integer;
begin
writeln('Enter three numbers:');
readln(num1, num2, num3);
countZeros := 0;
if num1 = 0 then
countZeros := countZeros + 1;
if num2 = 0 then
countZeros := countZeros + 1;
if num3 = 0 then
countZeros := countZeros + 1;
writeln('The number of zeros is: ', countZeros);
end.
Пример работы программы:
Enter three numbers:0
5
0
The number of zeros is: 2