Определить, сколько раз в заданном натуральном числе M встречается наибольшая цифра

@sveta 1985 · Регистрация: 05.10.2012

составьте программу,определяющую сколько раз в заданном натуральном числе M встречается наибольшая цифра.

@Puporev · 09.10.2012, 09:49

Pascal

uses crt;
var m:longint;
    mx,c,k:byte;
begin
write('M=');
readln(m);
mx:=0;
k:=0;
while m>0 do
 begin
  c:=m mod 10;
  if c=mx then k:=k+1
  else if c>mx then
   begin
    mx:=c;
    k:=1;
   end;
  m:=m div 10;
 end;
write('Максимальная цифра=',mx,' встречается ',k,' рз.');
readln
end.

@sveta 1985 0 / 0 / 0 Регистрация: 05.10.2012 Сообщений: 31
		1
	Определить, сколько раз в заданном натуральном числе M встречается наибольшая цифра 09.10.2012, 08:42. Показов 1554. Ответов 1 Метки нет (Все метки) составьте программу,определяющую сколько раз в заданном натуральном числе M встречается наибольшая цифра. 0

Опции темы

Определить, сколько раз в заданном натуральном числе M встречается наибольшая цифра

Решение