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

Question

Информатика

Максимианыч

3 декабря, 18:19

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

+4

Ответы (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.