Для каждого члена последовательности из натуральных чисел найти количество нулей и единиц в записи числа

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

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

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

@CodeR · 18.04.2014, 12:02

Pascal

Var n,k0,k1:integer;
Procedure P(n:integer;Var k0,k1:integer);
Begin
    n:=abs(n);k0:=0;k1:=0;
    While n>0 do
    Begin
      if n mod 10 = 0 then inc(k0)
       else if n mod 10 = 1 then inc(k1);
      n:=n div 10;
    End;
End;
Begin
    Repeat
     write('Число = ');readln(n);
     if n<>0 then
     Begin
       P(n,k0,k1);
       writeln('У числа ',n,' нулей = ',k0,' единиц = ',k1);
     End;
    Until n=0;
    readln;
End.

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

	18.04.2014, 12:02

Для каждого члена последовательности из натуральных чисел найти количество нулей и единиц в записи числа

Решение