Сколько раз в числе встречается цифра, равная первой?

@PARNISH · Регистрация: 12.04.2010

Дано натуральное число. Определить, сколько раз в нем встречается цифра, равная первой.

@STRATEG · 18.04.2010, 16:44

Pascal

program Cool;
var chislo:string;i,count:integer;
BEGIN
readln(chislo);
for i:=1 to Length(chislo)-1 do
  if chislo[i]=chislo[1] then Inc(count); 
writeln('Result=',count);
readln;
END.

Humanoid · 18.04.2010, 16:48

Сообщение от strateg0793

for i:=1 to Length(chislo)-1 do

for i:=1 to Length(chislo) do
Минус один не надо... chislo[Length(chislo)] существует.
И в данном случае результат всегда будет не менее 1, т.к. сама первая цифра тоже учитывается. Если её считать не надо, тогда надо начинать перебор со второго символа.

@Inadequate · 18.04.2010, 18:10

Варианты с использованием строк обычно не принимают, поэтому добавлю еще и такой вариант

Pascal

var
  temp,N: integer;
  a: array [0..9] of byte;
begin
  ReadLn(N);
  for temp := 0 to 9 do
    a[temp] := 0;
  temp := N;
  while temp <> 0 do
  begin
    Inc(a[temp mod 10]);
    if temp div 10 = 0 then
      WriteLn('Result: ', a[temp]);
    temp := temp div 10;
  end;
  ReadLn;
end.

@PARNISH 3 / 3 / 0 Регистрация: 12.04.2010 Сообщений: 39
		1
	Сколько раз в числе встречается цифра, равная первой? 18.04.2010, 16:38. Показов 1046. Ответов 3 Метки нет (Все метки) Дано натуральное число. Определить, сколько раз в нем встречается цифра, равная первой. 0

Humanoid Почетный модератор 11175 / 4131 / 413 Регистрация: 12.06.2008 Сообщений: 11,974
	18.04.2010, 16:48	3
	Сообщение от strateg0793 for i:=1 to Length(chislo)-1 do for i:=1 to Length(chislo) do Минус один не надо... chislo[Length(chislo)] существует. И в данном случае результат всегда будет не менее 1, т.к. сама первая цифра тоже учитывается. Если её считать не надо, тогда надо начинать перебор со второго символа. 1

Опции темы