Дано 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.

Объяснение кода листинга программы

  1. В коде используются константы A, B, C, M, P, H, которые содержат некоторые значения.
  2. Переменная CNT инициализируется значением 0 и используется для подсчета количества ненулевых значений.
  3. В цикле проверяется каждое из значений A, B, C, M, P, H.
  4. Если значение равно 0, то увеличивается счетчик CNT.
  5. После проверки всех значений выводится сообщение с количеством ненулевых значений.
  6. Ввод с клавиатуры позволяет перейти к следующему вопросу.

Оцени полезность:

14   голосов , оценка 4.143 из 5
Похожие ответы