Для каждого числа последовательности найти количество цифр 0 и 1.

@Slavchik · Регистрация: 21.03.2014

Студворк — интернет-сервис помощи студентам

Поступает последовательность целых положительных чисел, 0—конец последовательности. Для каждого числа найти количество нулей и единиц.
Создать процедуру, которая возвращает количество нулей и единиц в заданном числе.

@APALoff · 30.05.2014, 10:47

Pascal

Procedure GetNum01(N : Longint; Var n0,n1 : Byte);
Begin
  n0:=0; n1:=0;
  While N>0 do
  Begin
    If (N mod 10)=0 then Inc(n0);
    If (N mod 10)=1 then Inc(n1);
    N:=N div 10;
  end;
end;

@Slavchik 0 / 0 / 0 Регистрация: 21.03.2014 Сообщений: 11
		1
	Для каждого числа последовательности найти количество цифр 0 и 1. 30.05.2014, 09:56. Показов 1625. Ответов 1 Метки нет (Все метки) Поступает последовательность целых положительных чисел, 0—конец последовательности. Для каждого числа найти количество нулей и единиц. Создать процедуру, которая возвращает количество нулей и единиц в заданном числе. 0

Опции темы

Для каждого числа последовательности найти количество цифр 0 и 1.

Решение