Дано натуральное число, выяснить, каких цифр больше нулей или единиц

@Шкарима · Регистрация: 27.11.2014

@CodeR · 07.12.2014, 10:24

Pascal

var
  n, k1, k2: longint;
 
begin
  write('N: ');readln(n);
  n := abs(n);
  while n > 0 do
  begin
    if n mod 10 = 0 then inc(k1);
    if n mod 10 = 1 then inc(k2);
    n := n div 10;
  end;
  writeln('Нулей = ', k1);
  writeln('Единиц = ', k2);
  if k1 > k2 then writeln('Нулей больше')
   else if k1 < k2 then writeln('Единиц больше') 
    else writeln('Поровну');
  readln;
end.

@Шкарима 0 / 0 / 0 Регистрация: 27.11.2014 Сообщений: 5
		1
	Дано натуральное число, выяснить, каких цифр больше нулей или единиц 07.12.2014, 10:10. Показов 1993. Ответов 1 Метки нет (Все метки) Дано натуральное число, выяснить, каких цифр больше нулей или единиц 0

Опции темы

Дано натуральное число, выяснить, каких цифр больше нулей или единиц

Решение