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

Question

Информатика

Эмиль

7 марта, 18:33

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

+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.