Дано натуральное число. Определить его максимальную и минимальную цифру

@User233 · Регистрация: 27.02.2012

2. Дано натуральное число.
Определить его максимальную цифру.
Определить его минимальную цифру.

@CodeR · 03.06.2012, 07:17

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

2. Дано натуральное число.
Определить его максимальную цифру.
Определить его минимальную цифру.

Pascal

Var n,m,max,min:integer;
Begin
    write('Введите число n: ');readln(n);
    max:=-10;min:=10;
    While n<>0 do
     Begin
      m:=n mod 10;
      if  m>max then max:=m;
      if  m<min then min:=m;
      n:=n div 10;
     End;
    writeln('Максимальная цифра числа: ',max);
    writeln('Минимальная цифра числа: ',min);
End.

@User233 1 / 1 / 0 Регистрация: 27.02.2012 Сообщений: 47
		1
	Дано натуральное число. Определить его максимальную и минимальную цифру 03.06.2012, 03:56. Просмотров 23598. Ответов 1 Метки нет (Все метки) 2. Дано натуральное число. Определить его максимальную цифру. Определить его минимальную цифру. 0

Опции темы

Дано натуральное число. Определить его максимальную и минимальную цифру

Решение