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

@NoviiMir · Регистрация: 23.09.2012

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

В натуральном числе N (N<1000000000) цифры пронумеровали справа налево. Требуется определить максимальную цифру, имеющую наибольший номер, вывести значение максимума, а также порядковый номер найденной цифры.
Чем проще программа, тем лучше. Использовать вложенные циклы.

@ermolay · 04.10.2012, 11:59

Pascal

var 
  n: longint;
  i,j,k,max: byte;
begin
  write('Введите число n (n<1000000000): ');
  readln(n);
  max:=n mod 10;
  i:=0;
  while n>0 do
  begin
    inc(i);
    k:=n mod 10;
    if k>max then 
    begin
      max:=k;
      j:=i;
    end;
    n:=n div 10;
  end;
  writeln('Максимальная цифра = ',max,', находится на ',i-j+1,' позиции');
  readln;
end.

@NoviiMir 10 / 10 / 2 Регистрация: 23.09.2012 Сообщений: 427
		1
	Определить максимальную цифру в числе, имеющую наибольший порядковый номер 02.10.2012, 18:34. Показов 3542. Ответов 1 Метки нет (Все метки) В натуральном числе N (N<1000000000) цифры пронумеровали справа налево. Требуется определить максимальную цифру, имеющую наибольший номер, вывести значение максимума, а также порядковый номер найденной цифры. Чем проще программа, тем лучше. Использовать вложенные циклы. 0

	04.10.2012, 11:59

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

Решение