+30
3 года назад
Информатика
Студенческий
var
N, _counterZ, _counterU : integer;
begin
_counterU := 0;
_counterZ := 0;
readln(N);
while N > 0 do
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.
Не помнишь пароль?
Нет аккаунта? Пройди быструю регистрацию!
Передумали регистрироваться? Предлагаем войти на сайт!
Вспомнили пароль? Войдите на сайт
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.