Как найти наименьшую цифру в числе (паскаль) ?

Question

Информатика

Никитьич

26 марта, 05:02

Как найти наименьшую цифру в числе (паскаль) ?

+1

Ответы (1)

Знаете ответ?

Никушка · Answer 1

Var

A:longint;

Min:byte;

Begin

Min:=9;

Write ('Введите целое число: ') ;

ReadLn (A) ;

A:=Abs (A) ;

While A > 0 do

Begin

if A mod 10 < Min then Min:=A mod 10;

A:=A div 10;

End;

WriteLn ('Min = ', Min) ;

End.