Дано A, B, C, M, P, H. Сколько среди них нулевых значений? - Free Pascal
Формулировка задачи:
Дано A, B, C, M, P, H. Сколько среди них нулевых значений? Начальные данные: A=10, B=0, C=M=P=2, H=0.
Заранее спасибо.
Решение задачи: «Дано A, B, C, M, P, H. Сколько среди них нулевых значений?»
textual
Листинг программы
- const A=10; B=0; C=2;M=2;P=2; H=0;
- var cnt:integer;
- begin
- if a=0 then inc(cnt);
- if b=0 then inc(cnt);
- if c=0 then inc(cnt);
- if m=0 then inc(cnt);
- if p=0 then inc(cnt);
- if h=0 then inc(cnt);
- write(cnt,' ненулевых');
- readln;
- end.
Объяснение кода листинга программы
- В коде используются константы A, B, C, M, P, H, которые содержат некоторые значения.
- Переменная CNT инициализируется значением 0 и используется для подсчета количества ненулевых значений.
- В цикле проверяется каждое из значений A, B, C, M, P, H.
- Если значение равно 0, то увеличивается счетчик CNT.
- После проверки всех значений выводится сообщение с количеством ненулевых значений.
- Ввод с клавиатуры позволяет перейти к следующему вопросу.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д