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

@Slove73 · Регистрация: 28.04.2012

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

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

@eXPonent · 19.06.2012, 22:59

Держи:

Pascal

Var a,i,max,min:integer;
    s:string;
 
BEGIN
 
Read(a);
s:=IntToStr(a);
min:=StrToInt(s[1]);
max:=StrToInt(s[1]);
 
For i:=2 to Length(IntToStr(a)) do
 Begin
   If StrToInt(s[i])>max then max:=StrToInt(s[i]);
   If StrToInt(s[i])<min then min:=StrToInt(s[i]);
 End;
 
Writeln('min=',min);
Writeln('max=',max);
 
END.

@Slove73 0 / 0 / 0 Регистрация: 28.04.2012 Сообщений: 23
		1
	Определить максимальную и минимальную цифру числа 18.06.2012, 23:08. Показов 2716. Ответов 1 Метки нет (Все метки) Дано натуральное число. • Определить его максимальную цифру. • Определить его минимальную цифру. 0

	19.06.2012, 22:59

Опции темы

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

Решение