Question

Язык программирования Паскаль. Найти три минимальных цифры в числе.

Answer 1

 uses crt; var  a,min: integer;  n: longint; begin  clrscr;  min:=9;  write('Vvedite chislo:  ');  readln(n);  a:=n mod 10;  repeat   if a<min then min:=a;   a:=n mod 10;   n:=n div 10;  until n=0;  if a<min then min:=a;  write('minimalnaya zifra:  ',min);  readln end.

Answer 2

А как сделать для трех чисел?