Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
18
Добавлен:
04.06.2015
Размер:
1.9 Кб
Скачать
Program praktika24;
Uses CRT;
Var n, min, max, min2, k, t, imax, count: Integer;
Begin
Write('Введите число: ');
ReadLn(n);
t:=n;
While (t>0) Do
Begin
count:=count+1;
t:=t div 10;
End;
If (count=1)
Then imax:=n+1;
If (count=2)
Then
Begin
min:=n;
max:=0;
t:=n;
While (t>0) Do
Begin
k:=t mod 10;
If (k>max)
Then max:=k;
If (k<min)
Then min:=k;
t:=t div 10;
End;
If (max-min>1)
Then imax:=min+1
Else imax:=max+1;
End;
If (count>=3)
Then
Begin
t:=n;
min:=n;
max:=0;
While (t>0) Do
Begin
If (t mod 10>max)
Then max:=t mod 10;
If (t mod 10<min)
Then min:=t mod 10;
t:=t div 10;
End;
min2:=n-1;
t:=n;
While (t>0) Do
Begin
If ((t mod 10<min2) and (t mod 10>min))
Then min2:=t mod 10;
t:=t div 10;
End;
Repeat
If (min2-min>1)
Then imax:=min+1
Else
Begin
min:=min2;
min2:=max;
t:=n;
While (t>0) Do
Begin
If ((t mod 10>min2) and (t mod 10<min))
Then min2:=t mod 10;
t:=t div 10;
End;
If (min2=max)
Then imax:=max+1;
If ((min2=max) and (min2-min>1))
Then imax:=max-1;
End;
Until(imax<>0);
End;
WriteLn;
WriteLn('минимальная не входящая в число цифра = ', imax);
ReadLn;
End.






Соседние файлы в папке Информатика Практика