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.