Ответы
Гость 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.
Нет комментариев
Похожие вопросы
Информатика
Помогите пожалуйста срочно...
Информатика
Как в паскале записать:lg(lnx)?...
Список предметов
