Определите, какая цифра в числе встречается чаще других

@VladosLancer · Регистрация: 03.10.2011

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

Дано натуральное число P. Определите, какая цифра в этом числе встречается чаще других.

@Al50 · 23.10.2011, 22:01

Pascal

Var
  P: Word;
  Mas: Array [0..9] of Byte;
  i,k: Byte;   
Begin
  Write('P='); Readln(P);
  for i:=0 to 9 do Mas[i]:=0;
  while (P>0) do begin
    i:=P mod 10;
    P:=P div 10;
    Mas[i]:=Mas[i]+1;
  end;
  k:=0;
  for i:=1 to 9 do 
    if Mas[i]>Mas[k] then k:=i;
  Writeln('Цифра ',k);
End.

@VladosLancer · 24.10.2011, 19:32 **[ТС]**

Спасибо тебе огромное

@VladosLancer 1 / 1 / 0 Регистрация: 03.10.2011 Сообщений: 96
		1
	Определите, какая цифра в числе встречается чаще других 23.10.2011, 19:53. Показов 1703. Ответов 2 Метки нет (Все метки) Дано натуральное число P. Определите, какая цифра в этом числе встречается чаще других. 0

@VladosLancer 1 / 1 / 0 Регистрация: 03.10.2011 Сообщений: 96
	24.10.2011, 19:32 [ТС]	3
	Спасибо тебе огромное 0

Опции темы

Определите, какая цифра в числе встречается чаще других

Решение