Question

Помогите, пожалуйста, написать программу на паскале. Цель следующая: Найти количество единиц и количество нулей во введенном натуральном числе. Желательно использовать циклы while и repeat.

Answer 1

var

N, _counterZ, _counterU : integer;

begin

_counterU := 0;

_counterZ := 0;

readln(N);

while N > 0 do

   begin

   if N mod 10 = 1 then

       _counterU := _counterU + 1;

   if N mod 10 = 0 then

       _counterZ := _counterZ + 1;

   N := N div 10;

   end;

writeln('Количество единиц в числе: ', _counterU);

writeln('Количество нулей в числе: ', _counterZ);

end.

Answer 2

Конечно, я могу помочь написать программу на паскале для нахождения количества единиц и нулей введенном натуральном числе. Вот пример такой программы:

program CountZerosAndOnes;

var
  num, zeros, ones, digit: integer;

begin
  zeros := 0; // инициализируем счетчик нулей
  ones := 0; // инициализируем счетчик единиц
  
  writeln('Введите натуральное число: ');
  readln(num);
  
  while num <> 0 do // выполнять цикл, пока число не станет равным нулю
  begin
    digit := num mod 10; // получаем последнюю цифру числа
    if digit = 0 then
      zeros := zeros + 1 // увеличиваем счетчик нулей на 1
    else if digit = 1 then
      ones := ones + 1; // увеличиваем счетчик единиц на 1
      
    num := num div 10; // удаляем последнюю цифру числа
  end;
  
  writeln('Количество нулей: ', zeros);
  writeln('Количество единиц: ', ones);
  
end.

В этой программе мы сначала инициализируем счетчики нулей и единиц нулями. Затем пользователь вводит натуральное число. Далее мы выполняем цикл while, который будет продолжаться до тех пор, пока число не станет равно нулю. Внутри цикла мы получаем последнюю цифру числа с помощью операции остатка от деления на 10. Затем, если эта цифра равна 0, увеличиваем счетчик нулей на 1, а если равна 1, увеличиваем счетчик единиц на 1. После этого удаляем последнюю цифру числа с помощью целочисленного деления на 10. В конце программы выводим количество нулей и единиц.