Question

AJUTOR !!! sa se afiseze pe ecran cifra minima a unui numar natural nenul a. Numarul a se citeste de la tastatura. (trebuie în Pascal!!)

Answer 1

var min,n: integer;
Begin
readln(n);

min:=9;

while (n<>0) do
begin
if (n mod 10<min) then
min:=n mod 10;
n:= n div 10;
end;
write('Cifra minima:',min)
End.