Помогите, пожалуйста, написать программу на паскале. Цель следующая:
Найти количество единиц и количество нулей во введенном натуральном числе.
Желательно использовать циклы while и repeat.
Ответ
5 (2 оценки)
1
restIess 11 месяцев назад
Светило науки - 2022 ответа - 1820 раз оказано помощи

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.

Остались вопросы?